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

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

#!/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

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

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

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

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

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

将[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/\@

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