新手请教 一个文件排序问题

QUOTE:

原帖由 qhd4012 于 2008-4-11 15:26 发表
就是在上面这个的基础上修改哈 ，不知道怎么修改。。。。。

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my $text = shift || "1.txt";
open my $file,"<",$text or die "Fail to open $text $!";
my %hash;
while(<$file>){
     my ($value,$key) = split /\s+/;
     $hash{$key} .= $value;
     }
open my $out,">","2.txt" or die "Fail to create 2.txt $!";
print $out "$hash{$_} $_\n" foreach ( sort keys %hash);