Re: [問題] 有關正規表示式

[jb0802 (james)]

請問大大參考你的code之後我寫出來這樣
open(THATFILE, "test.txt");
while(<THATFILE>)
{
 chomp;
 $_=~ tr/A-Z/a-z/;
 @file=$_ =~ /([\w']+)/g;
}

foreach (@file)
{
        print "$_\n";
}
這樣子可以對test.txt這個檔案作這件事~~
但是我的test.txt如果超過一行，例如我打三行，他只對最後一行做，前面的沒取出來

另外~~我寫的另一個版本
open(THATFILE, "test.txt");
while(<THATFILE>)
{
 chomp;
 $_=~ tr/A-Z/a-z/;
 @temp = split(/\W+/,$_);
foreach(@temp)
        {
        if($_ ne "")
                {
                push(@temp1,$_);
                }
        }
}

foreach (@temp1)
        {
        print "$_\n";
        }
我用split函式取\W+也就是不是字當分割，這個要怎麼改成除了'以外的\W
試了好久~~謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.118.155.150
推 LiloHuang:把 foreach 放進 while 裡面...流程錯了