Re: [問題] 有關正規表示式
請問大大參考你的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
推
12/20 16:33, , 1F
12/20 16:33, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
