Cuestión : Pregunta sobre poco recorte de código

Hola, el

I tiene una pequeña escritura del Perl. Causa no soy un professionall en el Perl, yo tengo problema para entender el siguiente de poco recorte de código:

my $section del

[comienzo];
my $up;
my %section;
while (mi $line = <>) {chomp $line del
;
del
si ((=~ m de $line; RegExA; i) || (=~ m de $line; RegExB; i)) {

$section = $1; ¿#Is del
del
del
} el elseif siguiente siempre verdad si $section no es nulo? ¿elsif del
($section) {
del
si (m RegExC /i) {

del =~ de $line si ($1 =~ /RegExD/i) {#What del
hace la línea siguiente medios?
$section {$section} - > {$up} ++; ¿
del
del
} {#What del
hace la línea siguiente medios?
$section {$section} - > {$1} ++; elsif del
del
del
del
del
}} ($line=~ m/RegExD /i) {
del
$up = $1;

Thanks del

[parada] del
} mucho para cada help.

class= del

Respuesta : Pregunta sobre poco recorte de código

 ¿#Is el elseif siguiente siempre verdad si $section no es nulo?
  elsif ($section) {
no nulo y no eq “0”

       ¿el #What hace la línea siguiente medios?
      $section {$section} - > {$up} ++;
Incrementar el valor puesto en un índice por $up en el hashref en el valor puesto en un índice por $section en el picadillo de %section

             ¿el #What hace la línea siguiente medios?
           $section {$section} - > {$1} ++;
Incrementar el valor puesto en un índice por $1 en el hashref en el valor puesto en un índice por $section en el picadillo de %section