Entry tags:

code

[Праграмізм] Dontcha just L-U-V Perl?

#!/usr/bin/perl -w
use strict;

#...

sub process {
    my $str=shift;
#    my $rest;
   ($a, $b, $rest) = split(/\s+/,$str,3);
    if (defined($a)){
        print OUT "$a\t";
    }
    if (defined($b)){
        print OUT "$b\n";
    }
   if (!defined($rest)){
        return (0);
   }
    process($rest);
}

Калі не прыбраць значок камэнтара перад my $rest; , то Пэрл, натуральна лаецца на неаб'яўленую зьменлівую $rest . Пытаньне: чаму Пэрл ня лаецца на неаб'яўленыя $a і $b ???

Адказ: $a and $b are special variables in Perl. See perldoc -f sort.

Папярэдні выпуск