最近将一些shell脚本,替换成perl,当做练习,遇到些小问题,麻烦请教一下,排序的问题

kaixin9ok

小弟最近将一些shell脚本,替换成perl,当做练习,遇到些小问题,麻烦请教一下  {:3_196:}

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. my $date = &date("1");
   
5. my $delete_date = &date("7");
   
6. my $PV_LOG_NAME="/var/log/original/access_log.$date";
   
7. my $V_LOG_NAME="/var/log/v/video/access.log$date";
   
8. my %num;
   
9. my $id;
   
10. my $pv;
    
11. open FILE,"<$PV_LOG_NAME" or die "Open File Filad...$!";;
    
12. while(<FILE>;){
    
13.         next unless $_ =~ m/pv.gif/;
    
14.         next unless $_ =~ m#http://v\.baidu\.cn/v_([\d]+)\.html#;
    
15.         glob my $video_id = $1;
    
16.         $num{$video_id}++;
    
17. }
    
18. while(($id,$pv) = each %num){
    
19. print $id ."=>". $pv . "\n";
    
20. }
    
21. sub date(){
    
22.         my $days = $_[0];
    
23.         my ($day,$year,$month)=(localtime(time()-$days*86400))[3,5,4];
    
24.         sprintf("%d%d%d",$year+1900,$month+1,$day);
    
25. 
    
26. }

复制代码

结果如下:
8039=>3
11164=>2
5876=>2
10373=>10

如何排序成这样,按后面的数字进行排序,
10373=>10
8039=>3
11164=>2
5876=>2

kaixin9ok

foreach my $key ( sort { $num{$a} <=> $num{$b} } keys %num ) {
my $value = $num{$key};
print $key ."=>". $value . "\n";
}

好吧,我上网搜了一翻,然后翻了翻小骆驼...
- -是不是我的问题太弱了.都没人关注一下初学者..

zhlong8

星期五下午到周一人很少的都出去玩了。

只是一个红薯

kaixin9ok 发表于 2012-11-30 17:23
foreach my $key ( sort { $num{$a}  $num{$b} } keys %num ) {
my $value = $num{$key};
print $key ."= ...

按照你的加了个试试呢

1. foreach my $key ( sort {$num{$a} <=> $num{$b}
   
2.                          or
   
3.                          $a      <=> $b
   
4.                          }keys %num){
   
5.     my $value = $num{$key};
   
6.     print "$key=>$value\n";
   
7. }

复制代码

kaixin9ok

回复 4# 只是一个红薯


嗯 这个可以的,这个我是从网上摘的.

有些不明白 ,正在啃小骆驼的高级排序章节...


   

kaixin9ok

回复 4# 只是一个红薯


麻烦一下.能不能大概讲解一下这个是什么意思 {:3_198:}

我啃了半天,没啃明白 - -  求大师请教...


foreach my $key ( sort { $num{$a} <=> $num{$b} } keys %num ) {
my $value = $num{$key};
print $key ."=>". $value . "\n";
}
   

只是一个红薯

kaixin9ok 发表于 2012-11-30 17:47
回复 4# 只是一个红薯

按“键”的大小在排下序