用sort进行比较时如何先匹配 $a $b 在比较

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

11^# hitsubunnu 发表于 2008-01-22 16:37

QUOTE:

原帖由 apile 于 2008-1-22 16:28 发表
写这麽复杂的代码...如果哪天你要修改的话...
你可能会累死日後的自己....

20080122可以用
my($year,$mon,$day,) = unpack("A4A2A2",$date);

如果是2008年12月12日..则可以用
my($year,$mon,$day) ...

其实我的程序  是向你学的
open(FF,"test.dat" or die $!;
@by2and3 = map {$_->[0]} sort {$b->[1] <=> $a->[1]} map {[$_,(split(/,/))[2]]} <FF>;
close(FF);
for(@by2and3){
  print;
}
你还记得这个代码吧我现在就是想将 (split(/,/))[2] 匹配了成数字　再带进去如何将 (split(/,/))[2] =~ s/[^0-9]//g; 写进去
教人教到底吧

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

12^# Nosferatu 发表于 2008-01-22 16:39

QUOTE:

原帖由 apile 于 2008-1-22 16:28 发表
写这麽复杂的代码...如果哪天你要修改的话...
你可能会累死日後的自己....

20080122可以用
my($year,$mon,$day,) = unpack("A4A2A2",$date);

如果是2008年12月12日..则可以用
my($year,$mon,$day) ...

apile大大的话正是我想说的，过度复杂的re会给以后的维护带来很大的困难，如果写出来的正则表达式像天书一样，基本上这时候你就该考虑重构了

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

13^# hitsubunnu 发表于 2008-01-22 16:43

QUOTE:

原帖由 Nosferatu 于 2008-1-22 16:39 发表

apile大大的话正是我想说的，过度复杂的re会给以后的维护带来很大的困难，如果写出来的正则表达式像天书一样，基本上这时候你就该考虑重构了

说实话我这个程序正是跟 apile大大的学的他的原程序

发表在 2005-8-19 12:55 apile
apile
perl 排序

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
open(FF,"xxx.txt");
@by2and3 =  map{$_->;[0]} sort{$a->;[1] <=>; $b->;[1] || $a->;[2] <=>; $b->;[2]  }
      map{[$_,(split(/,/))[1],(split(/,/))[2]]} <FF>;;

close(FF);
for(@by2and3){
  print ;
}

QUOTE:

xxx.txt
#abc,1,2,cvdadfsda
#abc,1,22,cvdadfsda
#bcd,1,10,dfjdkf
#bcddf,2,2,dfjdkfdfjd
#bcd,2,2,dfjdkf

QUOTE:

output
$ perl tt.pl
#abc,1,2,cvdadfsda
#bcd,1,10,dfjdkf
#abc,1,22,cvdadfsda
#bcddf,2,2,dfjdkfdfjd
#bcd,2,2,dfjdkf

更簡單的..如果第一栏数字，第二栏是文字...分隔符号是空白...
把
map{[$_,(split(/,/))[1],(split(/,/))[2]]} 改成用\s+分隔
sort{$a->;[1] <=>; $b->;[1] || $a->;[2] <=>; $b->;[2] }
其中的$a->;[2]<=>;$b->;[2] 改成 $a->;[2] cmp $b->;[2]
可以叁考精华区中 sort与map的特殊用法..

关於第二的问题..当然可以..只是你要考虑
data的正确性问题...同时被修改的话..data就会出问题了...

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

14^# apile 发表于 2008-01-22 16:44

map {[$_,(split(/,/))[2]]}
这边动手脚.....
map {my $date=(split(/<>/))[4]; $date=~s/[^0-9]//g ;[$_,$date]}<FF>;

这种代码研究就好..

我没有在程序中用过...怕累死自己..

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

15^# hitsubunnu 发表于 2008-01-22 16:55

QUOTE:

原帖由 apile 于 2008-1-22 16:44 发表
map {[$_,(split(/,/))[2]]}
这边动手脚.....
map{(my date =(split(/,/))[2]=~s/\D//g;[$_,$date]};

没试过..你试试看..

这种代码研究就好..

我没有在程序中用过...怕累死自己..

不好意思不能通过编译

这个代码我就用一次，这个程序是给小日本用的，他们自己维护，要是能带进去，让他们将来爽去吧！

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

16^# apile 发表于 2008-01-22 16:59

map {my $date=(split(/<>/))[4]; $date=~s/[^0-9]//g ;[$_,$date]}<FF>;
改好了..
注意日期输出格式中..月、日都一定要是两码....

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

17^# hitsubunnu 发表于 2008-01-22 17:03

QUOTE:

原帖由 apile 于 2008-1-22 16:59 发表
map {my $date=(split(//))[4]; $date=~s/[^0-9]//g ;[$_,$date]};
改好了..
注意日期输出格式中..月、日都一定要是两码....

非常感谢，你真的好强，对你无比崇拜(真心话)
！！！
让小日本们玩去吧！！！赫赫！

用sort进行比较时 如何先匹配 $a $b 在比较

用sort进行比较时如何先匹配 $a $b 在比较