Question : Question au sujet de peu d'extrait de code

Bonjour, le

I ont un petit manuscrit de Perl. Cause je ne suis pas un professionall dans le Perl, j'ai le problème pour comprendre suivre peu d'extrait de code :

my $section du

[début] ;
my $up ;
my %section ;
while (mon $line = <>) {chomp $line de
;
du
si ((=~ m de $line ; RegExA ; i) || (=~ m de $line ; RegExB ; i)) {

$section = $1 ; #Is du
du
du
} l'elseif suivant toujours vrai si $section n'est pas nul ? elsif du
($section) {
de
si (m RegExC /i) {

de =~ de $line si ($1 =~ /RegExD/i) {#What de
fait la ligne suivante moyens ?
$section {$section} - > {$up} ++ ;
du
du
} autrement {#What de
fait la ligne suivante moyens ?
$section {$section} - > {$1} ++ ; elsif du
du
du
du
du
}} ($line=~ m/RegExD /i) {
de
$up = $1 ;

[arrêt] du
}/>
Thanks beaucoup pour chaque help.

class= de

Réponse : Question au sujet de peu d'extrait de code

 #Is l'elseif suivant toujours vrai si $section n'est pas nul ?
  elsif ($section) {
non nul et pas eq « 0 »

       le #What fait la ligne suivante moyens ?
      $section {$section} - > {$up} ++ ;
Incrémenter la valeur répertoriée par $up dans le hashref en valeur répertoriée par $section dans le gâchis de %section

             le #What fait la ligne suivante moyens ?
           $section {$section} - > {$1} ++ ;
Incrémenter la valeur répertoriée par $1 dans le hashref en valeur répertoriée par $section dans le gâchis de %section