perl 去掉重复行
初学者写了一个程序，找出相乘等于140的整数，出来的结果有重复，例如2x70=140, 70x2=140. 怎样去掉这样重复的结果，请教高手。 #!/usr/bin/perl for ($a=0;$a < 100;$a++){ for($b=100;$b > -1;$b--){ if($a * $b==140){ print"the product of $a and $b is 140\n"; last ; } } }
by vicky_zhao03 - Perl - 2011-05-16 10:08:01 阅读（1515） 回复（2）
由于此文件数据太多，几百万条，现在就取十条进行处理： 198610000|60105070808|20110104141951|131| 198610002|60135552461|20110129094124|131| 198610013|60148559455|20100824115919|106| 198610013|60135435100|20100824120109|106| 198610013|60198413489|20100824120447|106| 198610013|60135435100|20100824120315|106| 198610013|60135435100|20100824120926|106| 198610013|60195864436|20100918175612|106| 198610014|6...
linux的log文件，类似：
Jan 27 21:40:17 linux-123 rcpowersaved[4337]: enter 'CPUFREQ_ENABLED=no' in /etc/powersave/cpufreq to avoid this warning.
Jan 27 21:42:19 linux-123 haadmin[4623]:
生成的一个数组，有以下元素组成 “人事部, 财务部, 销售部, 人事部,销售部,....” 如何只取出“人事部, 财务部, 销售部”这样不重复的元素组成一个新的数组？ 有什么函数可以判断一个元素是否已经存在于数组里面？ 我该用@deplist还是%deplist来命名这个数组？ 请高手指点一下，谢谢 :em02:
假如现在有一个文件A,类似这样： name W X Y Z a 2 1 4 8 b 3 0 3 7 b 4 0 4 7 c 2 3 5 6 c 1 3 5 6 c 2 2 5 6 d 8 0 6 4 ........ 其中name下b和c有重复，现在想将其合并求和然后作为单独的b/c输出，像这样： name W X Y Z a 2 1 4 8 b 7 0 7 14 c 5 8 15 18 d 8 0 6 4 .....
本帖最后由 hkldd 于 2013-01-10 00:38 编辑 工作�行枰低车汲龅氖菸募⺳p1进行统计处理，sp1是一个大约有3千万行左右的txt文档，其中有很多数据(识别编码)是重复出现的，我们的工作就是，统计其中已完成呼叫的识别编码，如果重复就统计次数、排序后(重复次数由大至小)保存为sp2就完成了，诚请各位大侠帮忙写段perl代码。谢谢！ 以下是sp1的部分txt文档样本及期望获得的。 序号 识别编码 ...
113763 | Myotonic Dystrophy Type|6737,8200,650,658,112700,8200,100381210,7555,89,98,270,831,825,7555,6261,1180,1158,1346,137200,2997,145800,147421,291,5428,26353,158800,2489,4000,4618,4625,160565,4620,1180,1760,160990,8106,167600,167700,6329,10008,6329,4000,4625,8090,212160,2548,5837,5213,6566,64374,253320,825,8291,6445,2218,22954,8291,285489,375790,254950,254960,1376,23479,7170,58,57190,6261,1180...
最近经常在win7下用notepad++编写perl脚本，完了后提交到redhat服务器上运行，notepad设置格式编码为UTF-8， UNIX类型文件，可是提交到服务器上后直接用shebang行运行总是报错，无法通过shebang行找到perl解释器，因此被用shell运行了。 我的shebang行为[code]#!/usr/bin/env perl[/code]为了能让程序通用，就没有直接指定perl解释器的路径，然后直接运行时（如./script.pl）报错： line 1: #!/usr/bin/env: No such file or direc...
如果用perl处理一个文件 [code]open() $line =~ /.../ #匹配了其中一行 .... close()[/code] 如果想在这个匹配的行后面添加一个字符串怎么做 例如 匹配 了line ere trt trttretre 想变成 ere trt trttretre myword 谢谢
