关于散列读取文件

ccie307

做了两个文件

cat chengji.log
id chengji
1 88
2 90
3 85
4 70
5 90
6 99
7 85
8 65
9 70
10 66

现在想用散列按照成绩排序，取出前五名的id
出现的问题是hash对文件读取的时候返回keys 和values 不是我想要的结果
代码如下
##########################
#!/usr/bin/perl
open(OPEN,"chengji.log");
%hash_old=<OPEN>;
chomp(%hash_old);
foreach $key (keys %hash_old){
        #$keys=keys %hash_old;
        $value=$hash_old {$key};
        print "the value is $value \n";
        print "the id is $key \n";
}
#######################
返回结果
the value is 5 90
the id is 4 70

the value is 1 88 90
the id is id chengji

the value is  
the id is 10 66

the value is 9 70
the id is 8 65

the value is 7 85
the id is 6 99

the value is 3 85
the id is 2 90

第二段代码如下
###########################
#!/usr/bin/perl
open(OPEN,"chengji.log");
@OPEN=<OPEN>;
chomp @OPEN;
foreach $chengji (@OPEN){
$chengji="$chengji ";
push(@array,$chengji);
        print "$chengji \n";
}
%HASH=@array;
chomp %HASH;
foreach $key (keys %HASH){
        $value=$HASH{$key};
        print "the value is $value\n";
        print "the id is $key\n";
}
#######################
结果为：
id chengji  
1 88
2 90  
3 85  
4 70  
5 90  
6 99  
7 85  
8 65  
9 70  
10 66  
the value is 5 90
the id is 4 70
the value is 1 88
the id is id chengji
the value is 3 85
the id is 2 90
the value is 7 85
the id is 6 99
the value is
the id is 10 66
the value is 9 70
the id is 8 65


代码写的挺垃圾，请大家谁帮着看一下
想了很长时间了

ccie307

hash哪个部分看learningperl很多遍了
估计还是没有参透

你说的收到了

ccie307

看了半个下午了
my $log= shift@ARGV||"chengji.log";
open my $file,"<",$log or die "Fail to open $log $!";
这两句啥意思啊
||不是短路符吗
怎么可能把 chengji.log放到@ARGV里面呢？

ccie307

哦  那我就理解对了 他是短路字符
那  文件是通过
open my $file,"<",$log or die "Fail to open $log $!";

这句来读取的话？

shift @AGRV能读出啥呢

不好意思哈，基础太差
但热情足够  

ccie307

The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the number of arguments minus one, because $ARGV[0] is the first argument, not the program's command name itself. See $0 for the command name.

好像明白了  谢谢大家了

ccie307

又仔细看了一下发现 下面的语法在learningperl中都有提到
看书不细
看来真得看上一百遍啊一百遍
my $log= shift@ARGV||"chengji.log";
open my $file,"<",$log or die "Fail to open $log $!";