我有一个文件A是这样的：1300011    北京1300006    江苏1300010    北京1300014  

请教各位大侠，我想用tk实现这样一个功能：点击buttonstop后，button的item显示为start,同时label中的text停止滚动显示，然后点击buttonstart，label的text会继续显示。以下是我写的,发现在tk中fork时，sleep没有生效，而且感觉变量$but改变也没有生效，如果不用fork直接使用信号，那么就会阻塞，sleep10s后，button才

本帖最后由dingding512于2010-08-1315:15编辑赛门铁克诚招高级软件工程师，perl开发CompanyOverview  Symantecisagloballeaderinprovidingsecurity,storageandsystemsmanagementsolutionstohelpourcust

翻出06年的一个老帖子：http://bbs.chinaunix.net/viewthr...&extra=page%3D3#my@new=#map({join'@',@{$_}}#    sort({$a->[1]cmp$b->[1]#    &nb

本帖最后由ztkx于2010-08-1513:44编辑沒看懂relativebackreference$a99a='([a-z])(\d)\g{-1}\g{-2}';  $line="code=e99e";if($lin

if(-d_){............}

看了仙子的简简单单讲sort，有些想法我记得map的效率是比较低的，再次测试一下，在debian,perl5.10.1下，大约map要慢4到5倍for(0..20000000){$_;}map{$_++}0..200000

各位大侠下面一部分文本，其实有3个pool,分别是"testpool""ypepivsdb1pool"和"ypfpivsdb2pool"这三个pool里面的磁带分别是2个,3个和4个。我想写一个Perl程序能够得到这3个pool分别有几个磁带？请各位大侠不吝赐教多谢了！testpool001784  HCART3  AC

我自己编译了个microperl在嵌入式环境下使用，不支持XS,不能用标准Data:umper.源码包的lib目录下有好多模块可用，但找不到简单的纯perl实现的Data:umper有人见过或者实现过这个吗?谢谢

这是《perl高级编程》的一段小代码，*{"$(caller_packages)::$(rnvt_var_name)"}=\$ENV{$envt_var_name};这段不是很懂···对类型团很难明白~~麻烦各位可以指教一下~··谢谢了··packageEnvironment;subimport{