放分求教一个程序

nuclearxin

原帖由 jobbie1230 于 2007-11-28 14:35 发表
有一个问题，我的第二列特别的长，要20位数字的，好像作为数组名不行

好像而已????

davistar

呵呵　是啊，写得时候没想那么多

to ls：２０位没有问题，不是数组名而是下标

jobbie1230

偶就是换些简单的可以，但是20位一换就匹配出来空的

jobbie1230

哦，可以的，刚刚不知道为何不行，呵呵。结分

tinysisi

用perl行不？

#!/usr/bin/perl open MOM,'<mom'; open DUPSON, '>dupson'; open NODUPSON,'>nodupson'; while(<MOM>){     ($f0,$fd1)=split /\s+/;     $count{$fd1}++; } seek MOM,0,0 while(<MOM>){     ($f0,$fd1)=split /\s+/;     if($count{$fd1}>1){         print DUPSON $_;     }else{         print NODUPSON $_;     } } close MOM; close DUPSON; close NODUPSON;