请教如何把整个文本文件的内容赋值给一个变量，不是遍历行然后字符串相加的方式？谢谢

字符串 $str='asdf100sdafaf25sfdfm80asf'; 我想用正则表达式遍历这个字符串，并且依次提取\s+ 提取所有的\s+ 也就是 100 25 80 怎么办呢？ 谢谢啊

[root@test1 youcz]# perl argv3.pl '^.... ' emp.* emp.names: 3 : Igor Chevsky emp.names1: 3 : Igor Chevsky [root@test1 youcz]# cat argv3.pl #!/usr/bin/perl if($#ARGV<1){ die "Usage: $0 pattern filename(s) \n";} $pattern=shift; while($line=<ARGV>){ print "$ARGV: $. : $line" if $line=~/$pattern/i; close(ARGV) if eof; } [root@test1 youcz]# ls emp* e...

假如我有个购物返利的网站，用户登录后从这个网站的链接去当当网买东西， 我的这个网站如何跟踪到这个用户在当当网花了多少钱，买了些啥东西。 这个功能很多返利网都有哈，不知道怎么实现呢？ 谢谢！

如何取得从文件尾 到指定的行数的内容，如shell tail -3000 file的效果

perl如何操作图片

本帖最后由 yyin7cqhc 于 2011-05-24 00:04 编辑 %traceout = (%old,&OneTraceLog($fname)); 我是这样写的，结果出错。这个应该怎样些才对？

写Perl代码，用SciTE超爽！！！ 自己看图，我就不说话了。 下载 (78.28 KB) 2011-05-23 17:15

不妨学点Perl，总是那么有趣的语言。 #!/usr/bin/perl $a = 'abc'; *b = \$a; print "\$a = ", $a, " and \$b = ", $b, "\n"; $b = '123'; print "\$a = ", $a, " and \$b = ", $b, "\n";

我有个名为data.txt文件，如何用perl读取它，并将里面内容保存？ 如：txt中的数据（按行排列的） Steve Blenheim 101 Betty Boop 201 Igor Chevsky 301 Norma Cord 401 Jonathan DeLoach 501 Karen Evich 601