用  perl-pne'if($.%1001==0){print"commit\n"}'  1.sql  出错Can'tfindstringterminator"'"anywherebeforeEOFat-eline1.  正确的该怎么写?

每创建一个不同的信号量使用ipcs-a查看时总是一直占用,最后越来越多,直至250个全部用完,怎么解决这个问题?

本帖最后由climby于2011-03-0111:48编辑我有一个程序用到了LWP的https,所以Crypt::SSLeay是一个必须的module了。程序本身运行没有问题，但用PAR::Packer打包后就有问题了，打包本身没有错误信息，但运行时一直提示：501Protocolscheme'https'isnotsupported(Crypt::SSLeay

最近想写个下载百度新歌100的脚本（有人用其他语言写了，我想自己写写练练手）。遇到的问题是：歌曲的下载地址是放在FLASH里的，下载地址倒是以文字形式直接显示出来的，如何获取这个地址？

print<<EOF    ....    ....    EOF怎么把EOF中的内容赋给一个变量呢？难道只能print吗

useconstantCOUNT=>10;$status=$a_statusif$a_status=~/^COUNT/;为什么不好使阿

下载(22.63KB)并没有弹出界面2011-02-2811:30

$data=0and$status=111  if$count==1;为什么当$count=1时只有$data=0生效，而$status不生效阿？

while(1){my$dbh=DBI->connect("DBI:mysql:test;host=localhost;",'root','')||die"can'tconnect!\n";my$sql="showinnodbstatus";my$sth=$dbh->prepare($sql);$sth->execute()||die$dbh-

本帖最后由suntoltti于2011-02-2620:43编辑例如，aaaaaaaaaaaa/^(.)$1+$/不行