Вопрос : Вопрос о меньшем фрагменте Кодего

Hi,

I имеет маленький сценарий perl. Причина я не буду professionall в perl, я имею проблему для того чтобы понять следовать за меньшим фрагментом Кодего:

my $section

[старта];
my $up;
my %section;
while (мое $line = <>) {chomp $line
;

если (, то (=~ m $line; RegExA; iий) || (=~ m $line; RegExB; iий)) {

$section = $1; #Is


} следующий elseif всегда поистине если $section не нулево? elsif
($section) {

если (m/RegExC /i), то {

=~ $line если ($1 =~ /RegExD/i), то {#What
делает следующий линию середины?
$section {$section} - > {$up} ++;


} еще {#What
делает следующий линию середины?
$section {$section} - > {$1} ++; elsif




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

$up = $1;

Thanks


} [стопа] много для каждого help.

class=

Ответ : Вопрос о меньшем фрагменте Кодего

 #Is следующий elseif всегда поистине если $section не нулево?
  elsif ($section) {
нулево и не eq «0»

       #What делает следующий линию середины?
      $section {$section} - > {$up} ++;
Инкрементируйте значение индексированное $up в hashref в значении индексированном $section в хэше %section

             #What делает следующий линию середины?
           $section {$section} - > {$1} ++;
Инкрементируйте значение индексированное $1 в hashref в значении индексированном $section в хэше %section