[問題] 字數統計
因為實驗上的需求最近開始接觸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
推
08/15 13:08, , 1F
08/15 13:08, 1F
→
08/15 13:09, , 2F
08/15 13:09, 2F
推
08/15 13:21, , 3F
08/15 13:21, 3F
推
08/15 19:36, , 4F
08/15 19:36, 4F
→
08/15 19:37, , 5F
08/15 19:37, 5F
推
08/16 11:24, , 6F
08/16 11:24, 6F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
