Questione : Domanda circa poco frammento di codice

Ciao, il

I ha un piccolo scritto del Perl. Causa non sono un professionall in Perl, io ho problema per capire quanto segue poco frammento di codice:

my $section del

[inizio];
my $up;
my %section;
while (mio $line = <>) {chomp $line del
;
del
se ((=~ m. di $line; RegExA; i) || (=~ m. di $line; RegExB; i)) {

$section = $1; #Is del
del
del
} il seguente elseif sempre allineare se $section non è nullo? elsif del
($section) {
del
se (m. RegExC /i) {

del =~ di $line se ($1 =~ /RegExD/i) {#What del
fa la seguente linea mezzi?
$section {$section} - > {$up} ++;
del
del
} altrimenti {#What del
fa la seguente linea mezzi?
$section {$section} - > {$1} ++; elsif del
del
del
del
del
}} ($line=~ m/RegExD /i) {
del
$up = $1;

Thanks del

[arresto] del
} mólto per ogni help.

class= del

Risposta : Domanda circa poco frammento di codice

 #Is il seguente elseif sempre allineare se $section non è nullo?
  elsif ($section) {
non nullo e non eq “0„

       il #What fa la seguente linea mezzi?
      $section {$section} - > {$up} ++;
Incrementare il valore spostato ad incrementi da $up nel hashref nel valore spostato ad incrementi da $section nel hash di %section

             il #What fa la seguente linea mezzi?
           $section {$section} - > {$1} ++;
Incrementare il valore spostato ad incrementi da $1 nel hashref nel valore spostato ad incrementi da $section nel hash di %section