排序请教。自定义规则

大家好,事情是这样的: 一文件夹中有很多文件,名字有如下特点: XX_normal.file XX_click.file XX_hover.file YY_click.file YY_hover.file YY_normal.file ZZ_click.file ZZ_hover.file ZZ_normal.file 复制代码 要求按normal,hover,click这样的顺序输出,即: XX_normal.file,XX_hover.file,XX_click.file YY_normal.file,YY_hover.file,YY_click.file ZZ_normal.file,ZZ...

作者: perlnewbie 发布时间: 05-31

怎样通过perl实现内网通过代理访问外网。

脚本执行的时候,需要发送到外网去,但是现在环境是linux的,而且在内部网络,连接外网的时候需要通过一个 ip:8080 这样的代理才能访问外网,我能通过perl实现使用这个代理吗? 让脚本正常跑起来。

作者: yan21k 发布时间: 05-31

在线返回客户端dns的原理是什么???

比如这个页面 http://ns.pb.cachecn.net/fetch_ldns.php?sn=196143163 能返回客户端使用的dns地址。即使使用的是内网路由器的dns地址。

作者: laohuanggua 发布时间: 05-31

这个循环该怎么改

my $i=2; do { open (OUT,">$st[$i]") or die"$!"; print OUT "in1 in2\n"; while (<IN>) { chomp; if (/^\d/) { my @line=split/\s+/; if ($line[$i]==0) { next; } print OUT "$line[0]\t$line[1]\n"; } } $i++; } while ($i <= 100); 上面的程序总是得不到想要的结果。我的目的是i的初始值为 2,当i小于等于100的时候,要运行那个while循环(while循环是对文件进行操作,...

作者: 超级细菌 发布时间: 05-31

哪位大牛给我解释下goto &NAME的用法

下面这段话是perl programming里面的,完全看不懂啊 谁能给我解释下 有例子最好了 goto &NAME 形式非常神奇,它卓有成效地消灭了传统的 goto 的使用,令那些使用 goto 的用户免于惨遭批判.它把正在运行着的子过程替换为一个对命名子过程的调用.这个特性被 AUTOLOAD 子过程用于装载其它子过程,然后假装是那些子过程先被调用的. autouse,AutoLoader,和 SelfLoader? 模块...

作者: vgra 发布时间: 05-31

新手求几组数字之和

大概是这样的 12345235423 43251512532 23423423423 ..... 不一定多少行 我想求每行各自的和 输出如下 12345235423 34 43251512532 32 23423423423 47 ..... 请各位帮帮忙 刚开始学perl

作者: raging-fire 发布时间: 05-31

再谈谈perl多线程使用问题

本帖最后由 youzhengchuan 于 2011-05-31 09:10 编辑 最近有一个“十万条视频URL迁移”项目,算了一下,如果用单线程跑的话,大概要花费10天的时间,因此决定用多线程。 程序比较简单,先定义一个wget的子函数,该函数只负责2个事情, 1;使用LWP模块,接受传递的URL,将该URL下载并存储在相关目录。 2:在下载完毕后,对线程计数器减1,然后退出函数。 然后在程序主进程中,...

作者: youzhengchuan 发布时间: 05-31

vim中perl-support的问题

gvim刚安装完perl-support, 操作系统windows xp , 启动gvim时提示错误如下: can't locate Per/tags.pm in @INC at (eval 9) line 1. can't call method "process" on an undefined value at (eval 10) line 5 3ks

作者: zhanglistar 发布时间: 05-30

新手 匹配问题

[root@test1 youcz]# cat datebook youcz 5000 like 5000 guobf 3000 jiaxg 2000 第二列大于3000的把第一列写入 test.txt文件,怎么做?谢谢

作者: youcz 发布时间: 05-30

请教问题:如何判断perl的某个模块是自己安装的,还是安装perl时自带的?

大家好, 问题就是标题描述的那样,我想要知道怎么判断某个模块是系统中perl自带的,还是自己某个时候手动安装的?谢谢!!!

作者: andy20008 发布时间: 05-30