37,722
社区成员
发帖
与我相关
我的任务
分享问一个简单的perl匹配的小程序
#!/usr/local/bin/perl
while (<>)
{
/ (\d*)$/;
$count++;
$sum += $1;
}
$avg = int($sum/$count);
print "Average size: $avg bytes\n";
这个程序运行之后为什么是一片空白？应该有什么样的结果？我哪里写错了吗？谢谢。
while (<>)
{
/ (\d*)$/;
$count++;
$sum += $1;
}
$avg = int($sum/$count);
print "Average size: $avg bytes\n";
这个程序运行之后为什么是一片空白？应该有什么样的结果？我哪里写错了吗？谢谢。
...全文
请发表友善的回复…
发表回复
iambic 2006-12-16
- 打赏
- 举报
/ (\d*)$/;#中间多了个空格。
/(\d*)$/;#改成这样。
运行后回有输入提示符，然后你输入数字按回车就行了，一直循环下去。按Ctrl+D(UNIX)或者Ctrl+Z 回车(Windows)结束。
/(\d*)$/;#改成这样。
运行后回有输入提示符，然后你输入数字按回车就行了，一直循环下去。按Ctrl+D(UNIX)或者Ctrl+Z 回车(Windows)结束。
