请问

first123456789123456789second234567893456789233等等.....我的一个文件格式如上,比方说,我想按照列来操作这个文件,就是每一列都归为一个数组,该怎么操作呢,请高手给个提示,谢谢!

作者: 超级细菌 发布时间: 03-28

递归算法

大家好:  想学习点算法的知识。不过马上被递归的算法搞迷了。不知道函数该如何调用自身。我想做个最简单的阶乘。1*2*3.。。。*10.做和10的阶乘。  程序运行出差。怎么改改?my$n=10;my$result=DiGui($n);print"$result\n";subDiGui{  my

作者: leigh111 发布时间: 03-28

多次调用perl 连接数据库 内存不断累积直至耗尽

#!/usr/bin/perluseDBI;usestrict;usevarsqw($dbh$sth);my$jieguo=0;$dbh=DBI->connect("dbi:Oracle:host=192.168.1.22;sid=wddb","lb_test","lb_test");my$sth=$dbh->prepare("BEGINp

作者: wrsxm 发布时间: 03-28

求助:下面这个\G程序怎么运行不了啊

$a="123456789";while(not$a=~/\G\z/cg){if($a=~/\G12/gc)  {print"haha";}elsif($a=~/\G6/gc)    {print"\n\nhaha\n\n";}}

作者: 塞图宝 发布时间: 03-27

如何生成0-整数M(含)之间的随机数列,数列的平均值为N?

如题,例:M=9,N=51,9,2,3,8,7,    6,5,4,4,5,6,....?

作者: wwwjy2000 发布时间: 03-27

请教:一个排序的算法问题

类似于一个作业依赖关系:比如,1的前提是2和3;2的前提是4;3的前提是5;4的前提是6.这样,排序应该是654321或者563421等,就是没有依赖关系的次序可以随便。想不好这样的排序用perl怎么实现,有达人能指教下吗?谢谢。

作者: askersky 发布时间: 03-27

perl use module 问题

在main包中usemodule;比如在这个模块里存在subhello那么在main包中可以通过&hello访问如果在main包中也有subhello那么通过&hello访问的是main中的hello而不是module中的为什么会出现这种情况呢??

作者: zzy7186 发布时间: 03-27

open函数能在文件中后退吗?

rtopen(FILE,"<test.txt");while(1){my$line=<FILE>;#下一个循环后如何让$line不变?}

作者: linfengfeiye 发布时间: 03-27

这个正则怎么写?

[email protected]后面的ip地址去掉,得到[email protected];为什么下面都失败呢?$line=~  s/@\d+\.\d+\.\d+\.\d+//g;$line=~s/\@\d{2}\.0\.0\.1//g;$line=~s/@[0-9]0-9]\.0\.0\.1//g;$line=~s/\@

作者: linfengfeiye 发布时间: 03-27

perl中如何实现多次替换?

我知道sed中有 -e选项可以多次替换。perl中有类似的功能吗

作者: linfengfeiye 发布时间: 03-27