請問一段代碼

youkenn82

use strict;
my @employees=(
    'Smith,Bob,123101,9.35,40',
    'Franklin,Alice,132912,10.15,35',
    'Wojohowicz,Ted,198131,6.50,39',
    'Ng,Wendy,141512,9.50,40',
    'Cliburn,Stan,131211,11.25,40',
);
sub print_emp{
     my($last,$first,$emp,$hourly,$time)=
            split(/,/, $_[0]);
     my $fullname;
     $fullname=sprintf("%s %s",$first,$last);
     printf("%6d %-20s %6.2f %3d %7.2f\n",
           $emp,$fullname,$hourly,$time,
           ($hourly * $time)+.005);
}
@employees=sort{
            my ($L1,$F1)=split(',',$a);            請問這里的$a和$b是啥意思,不明白
            my ($L2,$F2)=split(/,/,$b);
            return ( $L1 cmp $L2
            ||
            $F1 cmp $F2
            );
[email=}@employees]}@employees[/email];
foreach(@employees){
    print_emp($_);
}

MMMIX

原帖由 youkenn82 于 2009-4-1 16:57 發(fā)表
@employees=sort{
            my ($L1,$F1)=split(',',$a);            請問這里的$a和$b是啥意思,不明白

perldoc -f sort

不明白就要查文檔。