求大神指导~~~一个小脚本 为什么运行的这么慢

albertkingking

{:3_182:} 虽然看不太明白（计算机知识太差了），还是得谢谢谢谢，再谢谢，太感谢了{:3_200:} 回复 10# q1208c


   

albertkingking

{:2_172:} 太谢谢了 哈 万分感谢哈 ~~~~~~回复 9# pitonas


   

qq27898

回复 4# albertkingking


    perl 的效率问题，存入内存的不止文本信息，还有其他信息以确保处理的速度

albertkingking

{:2_172:} 谢谢~~还得多学习回复 13# qq27898


   

清泉一边

my %hash;
while(<DATA>{
chomp;
($ch,$n,$tar,$key,$pro)=split/\s+/;
$value="$pro"." "."$ch"." "."$tar";
# $hash{$key}=[] unless (exists $hash{$key});
push @{$hash{$key}},$value;
}
foreach $key(keys %hash)
{
print ">$key\n";
@value=(sort @{$hash{$key}});
print join "\n",@value;
print "\n";
回复 1# albertkingking


   

sjdy521

回复 10# q1208c


    换成push @{$hash{$tmp[3]}}, $va;不也一样有这些问题吗。。

kingfighters

减少中间变量？或者是直接重用分割的结果？