本帖最后由sky_peter于2010-11-1216:34编辑#!/usr/bin/perl-wusestrict;useEvent::File::tail;my%event;our$watch;subread_file{my($me,$line)=@_;if($line=~/^\s*$/){    p

前边数据库已经连接好my$stuNumber=3;  my$stuName="张三";#这里如果等于‘abc’就没事my$stuClass="3";#指定处理数据库时使用的字符集

vils_moduseExtUtils：：Installed;my$inst=ExtUtils：：Installed->new();printjoin"\t",$inst->modules();print"\n";得到的结果只有：DBIPerl不知道怎样改，让所有的模块都显示出来

有一批需要处理的文件，其中每个文件中只有一行，但是每行中有类似如下数据2010-11-11055251NVT-706  HWWGJK  这些数据以一段空格分开，每个文件中这些数据的个数不固定现在的问题是，我需要把“2010-11-11055251NVT-706  HWWGJK”这些数据，分隔开，让它们在多行显示，而不是只在一

昨天在公司和同事同时写了shellpythonperl程序查看效率。算法实现统计数字问题问题描述：一本书的页码从自然数1开始顺序编码直到自然数n。书的页码按照通常的习惯编排，每个页码都不含多余的前导数字0。例如，第6页用数字6表示，而不是06或006等。数字计数问题要求对给定书的总页码n，计算出书的全部页码中分别用到多少次数字0，1，2，…，9。编程任务：给定表示书的总页码的1

请教有没有什么好用的mail模块，可以制作并发送整齐好看的mail，比如web格式的啥的，带点底色，字体整齐，啥的谢谢！

这可能是个比较笨的问题，请各位不要见笑。我发现perl没法直接修改文本的内容。我每次都是把要修改的文本一行行读入，替换后写入另一个文件，然后删掉旧文件，把新生成的文件rename回来。。我是希望能像awk那样直接改的，但perl好像不行，或者是我没用对方法，请各位指教，谢谢while(<FILE>){

RT：比如将321拆分成321

本帖最后由heqidz于2010-11-1115:57编辑文件1123文件21aa1bb1cc2ii2pp3uu3ll结果1  aa  bb  cc2  ii  pp3  uu &nb

result.txt第一列是RTX第2列的是等级第3行是在线时间要求1.第一列显示RTX2.列出相同RTX的总在线时间3.列出等级<=30，>=50的RTX号5723997  30  3010111441721922  43  2010221143423993  5