perl语法也太复杂了。
我2我骄傲 2011-03-10 01:00:47 看了个perl程序 如下:
#!/usr/bin/env perl
use strict;
my $sFile = "test.txt";
my %hData;
open my $FHtest,"<$sFile" or die "can't open $sFile\n"; -----------<这是啥意思???
while(<$FHtest>){
s/\s#.*$//; --------------------------------------------这更不知道啥意思了?
$hData{(split /\s+/,$_)[1]} .= $_; --------------------还有这。。。
}
foreach(sort keys %hData){
print "$hData{$_}";
}
悲剧,