Frage : Frage über wenig Code-Stückchen

Hallo, haben

I einen kleinen Perl-Index. Ursache bin ich nicht ein professionall in Perl, ich habe das Problem, zum des Folgens wenigen Code-Stückchens zu verstehen:

[Anfang]

my $section;
my $up;
my %section;
while (mein $line = <>) {
chomp $line;

wenn (($line =~ m; RegExA; i) || ($line =~ m; RegExB; i)) {

$section = $1;

}
#Is das folgende elseif immer zutreffend, wenn $section nicht ungültig ist?
elsif ($section) {

wenn ($line =~ m RegExC /i) {

wenn ($1 =~ /RegExD/i) {
#What die folgende Linie Mittel?
$section {$section} - > {$up} ++;

}
sonst {
#What die folgende Linie Mittel?
$section {$section} - > {$1} ++;

}
}

elsif ($line=~ m/RegExD /i) {

$up = $1;
}

[Anschlag]

Thanks viel für jedes help.

Antwort : Frage über wenig Code-Stückchen

 #Is das folgende elseif immer zutreffend, wenn $section nicht ungültig ist?
  elsif ($section) {
nicht ungültig und nicht eq „0“

       #What tut die folgende Linie Mittel?
      $section {$section} - > {$up} ++;
Den Wert erhöhen, der durch $up im hashref im Wert registriert, der durch $section im %section Durcheinander registriert

             #What tut die folgende Linie Mittel?
           $section {$section} - > {$1} ++;
Den Wert erhöhen, der durch $1 im hashref im Wert registriert, der durch $section im %section Durcheinander registriert