作者muchmoa (快给我签证!!!!)
看板perl
标题[问题] 字数统计
时间Wed Aug 15 11:49:25 2007
因为实验上的需求最近开始接触perl，
写了一个简单的script来练习(连简单的都不会orz)，
我在一个文件里打了8个我是熊，都在同一行，
我想计算总共有多少熊，以下是我的script
use Cwd;
$dir=cwd;
open IFN,"新增文字文件.txt";
while(<IFN>){
@content=split;
foreach $content(@content){
if($content=~/熊/){
$i=$i+1;
}
}}print "$i\n";
close IFN
结果发现他只能一行找一个，也这就是结果是1，
如果分成三行就会是3，
请问各位这是哪里出问题啊？是split嘛？
谢谢指教
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 70.64.19.29
1F：推 abliou:你的问题前面有喔...爬看看.. 08/15 13:08
2F：→ abliou:975那篇开始..到下面都有一些.. 08/15 13:09
3F：推 muchmoa:谢谢你，试着了解中@@" 08/15 13:21
4F：推 david220:$content=~/熊/go 08/15 19:36
5F：→ david220:先去了解regular expression吧 08/15 19:37
6F：推 muchmoa:d大，$content=~/熊/go是啥意思呢？谢谢 08/16 11:24