我想读取一个文件，源文件格式如下： a b aa bb cc 2 3 4 5 0 1 2 0 3 8 5 6 1 0 3 其中读取的时候第一行可以看作是名称，而其余的行则看作是要操作的对象，也就是说第一行中的每一个名称都相当于一个数组，我需要的结果是， 如果从aa列开始，该列中的数字如果为0就不输出a和b列中的那一行数字，具体结果如下 a b aa 2 3 4 5 6 1 这些都单独为一个文件 a b bb 2 3 5 1 2 3 ...

本帖最后由 feiyue0908 于 2011-05-29 16:13 编辑 有这两个文件 "input1" 11501362 171 10309943 721737 1115374 "input2" rsId="1115374" rsId="721737" rsId="35679" rsId="8745332" 查找input2的数字中是否在input1中，然后输出。但是程序不运行成功，看了好长时间也找不到问题。 程序 #!/usr/bin/perl -w use strict; my %hash; open (IN1,"input1"); while (<IN1>) { c...

刚才不小心发到shell版了 分享下下载链接：http://www.icili.com/emule/download/2893886

windows下正常删除png文件。结果到linux下运行没什么反应。。双引号什么的都试过了，不知原因出在哪里，特请教： #!/usr/bin/perl -w #delete files i want. use strict; use File::Find; my $dir = "$ARGV[0]"; find (\&wanted,$dir); sub wanted{ if(-f $_ and /\.png/i){ # print "$_\n"; unlink $_; } } 复制代码 然后 perl del_file.pl ./ 试过 unlink("$_");或单引号...

最近要断网了，想把一些资料下载下来，不知道怎么把CPAN上的文档都下载下来？

功能是对文件A，根据文件B进行过滤，代码如下： sub filterFile { my ($processFile,$filterFile1,$outputFile) = @_; my %hashFile; my $fileBuildTime='123456'; open (OUTFILE, ">>${outputFile}" or die "can't open file: $outputFile"; open FH, "<$filterFile1" or die "can't open file: $filterFile1"; while (<FH> { chomp; $hashFile{$_} = 1; } close (FH); ope...

这是一个客户端的代码片段，其中SOCK已经连接到了服务器的指定端口，问题是，如果去掉着色的代码，服务器端能正常接收到客户端命令行输入的字符串，加上着色的代码就有问题，服务器端收不到，同时客户端不能继续输入字符串，问题出在哪里呢？ SOCK->autoflush(1); defined(my $child = fork()) or die "Can't fork: $!"; if($child == 0){ while(my $msg_out =<>){ SOCK->pr...

这里有一个all.gz压缩的文件，需要一行行读取，然后匹配。 my $i=0; my $file="all.gz"; open (IN, "gzip -dc $file|"); while (<IN>){ $i++; if (/all/){ print $_,"\n" } } 结果发现$i是读一行增加1，但没有输出匹配到的一行 求解 谢谢

大家好，我最近在写Perl程序的时候遇到一个问题。这里写了一小段代码用来验证，麻烦请教一下，谢谢！ #!/usr/bin/perl -w use strict; my @array = qw/ file1 file2 /; #定义两个文件 foreach (@array) { open FILE, "< $_" or die $!; #使用默认控制变量"$_" while (<FILE>) { print; #输出文件的每一行 } } print "@array\n"; #打印文件列表 复制代码 执行程序，运行到最...

http://cpansearch.perl.org/src/RURBAN/illguts-0.36/index-14.html cpan 上可不是只有模块而已，优秀的文档更是数不胜数。这篇 illguts 作为 perlguts 的补充，通过大量图表展示了 Perl 的数据结构，很有用。自从第一次看就再也离不了了 在 CPAN 上被评为5星，但这里没人讨论这个我就冒昧给大家推荐下