Pytanie : Pytanie o mały kod odrzynek

Cześć,

I mieć troszkę perl pismo. Przyczyna I być professionall w perl, I mieć problem mały kod odrzynek:

[początek]

my $section;
my $up;
my %section;
while (mój $line = <>) {
chomp $line;

jeżeli (($line =~ m; RegExA; i) || ($line =~ m; RegExB; i)) {

$section = $1;

}
#Is the następujący elseif zawsze prawdziwy jeżeli $section być nieobowiązujący?
elsif ($section) {

jeżeli ($line =~ m/RegExC /i) {

jeżeli ($1 =~ /RegExD/i) {
#What robić the następujący kreskowy sposób?
$section {$section} - > {$up} ++;

}
inny {
#What robić the następujący kreskowy sposób?
$section {$section} - > {$1} ++;

}
}

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

$up = $1;
}

[przerwa]

Thanks dużo dla każdy help.

Odpowiedź : Pytanie o mały kod odrzynek

 #Is the następujący elseif zawsze prawdziwy jeżeli $section być nieobowiązujący?
  elsif ($section) {
nieobowiązujący i nie eq "(0)"

       #What robić the następujący kreskowy sposób?
      $section {$section} - > {$up} ++;
Przyrost the wartość %section $up w the hashref w the wartość %section $section w the %section hash

             #What robić the następujący kreskowy sposób?
           $section {$section} - > {$1} ++;
Przyrost the wartość %section $1 w the hashref w the wartość $1 $section w the %section hash