作者jb0802 (james)
看板Perl
标题Re: [问题] 有关正规表示式
时间Thu Dec 20 16:14:34 2007
请问大大参考你的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
1F：推 LiloHuang:把 foreach 放进 while 里面...流程错了 12/20 16:33