Pergunta : Pergunta sobre pouca pequena notícia de código

Olá!, o

I tem um certificado pequeno do Perl. Causa eu não sou um professionall no Perl, mim tenho o problema para compreender o seguimento de pouca pequena notícia de código:

my $section do

[começo];
my $up;
my %section;
while (meu $line = <>) {chomp $line do
;
do
se ((=~ m de $line; RegExA; i) || (=~ m de $line; RegExB; i)) {

$section = $1; #Is do
do
do
} o seguinte elseif sempre verdadeiro se $section não é nulo? elsif do
($section) {
do
se (m RegExC /i) {

do =~ de $line se ($1 =~ /RegExD/i) {#What do
faz a seguinte linha meios?
$section {$section} - > {$up} ++;
do
do
} mais {#What do
faz a seguinte linha meios?
$section {$section} - > {$1} ++; elsif do
do
do
do
do
}} ($line=~ m/RegExD /i) {
do
$up = $1;

Thanks do

do
} [batente] muito para cada help.

class= do

Resposta : Pergunta sobre pouca pequena notícia de código

 #Is o seguinte elseif sempre verdadeiro se $section não é nulo?
  elsif ($section) {
nao nulo e não eq “0”

       o #What faz a seguinte linha meios?
      $section {$section} - > {$up} ++;
Incrementar o valor posicionado por $up no hashref no valor posicionado por $section na mistura de %section

             o #What faz a seguinte linha meios?
           $section {$section} - > {$1} ++;
Incrementar o valor posicionado por $1 no hashref no valor posicionado por $section na mistura de %section