管道问题
open(INPIPE,"date|")$today1=<INPIPE>;$today2=<INPIPE>;管道缓冲当中的内容被只能被读取一次是吧。
作者: youcz 发布时间: 05-16
perl 去掉重复的结果,求高手指教
初学者写了一个程序,找出相乘等于140的整数,出来的结果有重复,例如2x70=140,70x2=140.怎样去掉这样重复的结果,请教高手。#!/usr/bin/perlfor($a=0;$a<100;$a++){ for($b=100;$b>-1;$b--){ if($a*$b==140){ &nb
作者: vicky_zhao03 发布时间: 05-15
perl可能写文件权限问题
本帖最后由kingwmj于2011-05-1519:13编辑在ubuntu下运行perl程序,要往tmp目录中写入文件,但我在perl里运行出错。但如果我把运行命令打印成.sh文件,然后用根目录命令运行,就没有问题。请问这是不是文件写权限的问题?该怎么解决?
作者: kingwmj 发布时间: 05-15
C++ cgi 中文字符串的比较
hi,大家好。在用C++写CGI代码时,遇到一个中文比较的问题,是这样的:前台统一用utf8编码,那么传到CGI时,原字符串肯定还是UTF8编码,比如传过来的是一个"否"字,用变量not保存。那我在写代码时肯定不能用if(not=="否")来判断,因为"否“的编码可能不是utf8,这样就会出错,有什么办法不?网上查了下,发现有人用url编码的方式来判断,比如:http://
作者: HNLGDXYJS 发布时间: 05-15
perl里面log的默认底数是2?10?e?
$a=log($b)里面log的底数是2还是10,或者还是e呢?小弟才疏学浅,下载的书上没有找到,望各位指教..
作者: sunhanghe 发布时间: 05-15
求解一行代码的意思
我的读一个程序的时候,看到一行代码是这样的if(/^+([0-9.-]+)+([0-9.-]+)+([0-9.-]+)/)请问([0-9.-]中的第二个减号-代表什么意思?
作者: helitrope 发布时间: 05-15
perl多处匹配用given when?还是用其他的方法啊?
如有文本aa1111bbDDDDDDD.......cc1111ddAAAAAAAA
作者: perlnewbie 发布时间: 05-15
求解一行代码
foreach$e(@a,@b){$union{$e}++&&$isect{$e}++}复制代码不明白地方是@a和@b是如何赋值给$e的,它们的先后顺利是怎么的?
作者: gentoo2011 发布时间: 05-14