Vraag : Vraag over weinig codefragment

Hallo, heeft

I wat perlmanuscript. Oorzaak ben ik geen professionall in perl, ik probleem heb na weinig codefragment te begrijpen:

[begin]

my $section;
my $up;
my %section; mijn
while ($line = <>) {/> chomp $line
als (($line =~ m; RegExA; I) || ($line =~ m; RegExB; I)) {

$section = $1;

}
#Is volgende altijd ware elseif als $section niet ongeldig is?
elsif ($section) {

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

als ($1 =~ /RegExD/i) {
#What doet de volgende lijnmiddelen?
$section {$section} - > {$up} ++;

}
anders {
#What doet de volgende lijnmiddelen?
$section {$section} - > {$1} ++;

}
}

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

$up = $1;
}

[einde]

hartelijk dank voor elke help.

Antwoord : Vraag over weinig codefragment

 #Is volgende altijd ware elseif als $section niet ongeldig is?
  elsif ($section) {
nietig verklaren niet en niet eq „0“

       #What de volgende lijnmiddelen?
      $section {$section} - > {$up} ++;
Toename de waarde door $up in hashref in de waarde wordt geïndexeerd door $section in de knoeiboel die %section wordt geïndexeerdo

             #What de volgende lijnmiddelen?
           $section {$section} - > {$1} ++;
Toename de waarde door $1 in hashref in de waarde wordt geïndexeerdo door $section in de knoeiboel die %section wordt geïndexeerdr