Fråga : Ifrågasätta kodifierar omkring lite snippeten

Hi

I har lite en perl att skriva. Orsaka I-förmiddagen inte en professionall i perl, mig har problemet som ska förstås kodifierar efter lite, snippeten:

my $section för

[start];
my $up;
my %section; min
while ($line = <>) {segrare $line för
;
för
om (($line-=~ M; RegExA; i) || ($line-=~ M; RegExB; i)) {

$section = $1; #Is för
för
för
} efter den alltid riktiga elseifen, om $section inte är ogiltig? elsif för
($section) {
för
om ($line-=~M RegExC /i) {

om ($1 =~ /RegExD/i) {
#What gör efter fodrahjälpmedlet?
$section {$section} - > {$up} ++;
för
för
} annars {
#What gör efter fodrahjälpmedlet?
$section {$section} - > {$1} ++; elsif för
för
för
för
för
}} ($line=~ m/RegExD /i) {
för
$up = $1;

Thanks för

[stopp] för
} ett lott för varje help.

" klar "

Svar : Ifrågasätta kodifierar omkring lite snippeten

 #Is efter den alltid riktiga elseifen, om $section inte är ogiltig?
  elsif ($section) {
inte ogiltigt och inte eq ”0”,

       #What gör efter fodrahjälpmedlet?
      $section {$section} - > {$up} ++;
Öka värdera som indexeras av $up i hashrefen i värdera som indexeras av $section i %section-pölsan

             #What gör efter fodrahjälpmedlet?
           $section {$section} - > {$1} ++;
Öka värdera som indexeras av $1 i hashrefen i värdera som indexeras av $section i %section-pölsan