作者freesia (什麽?)
看板perl
标题[问题] 一个中文取代的问题
时间Fri Aug 11 11:16:50 2006
大家好~
小弟有个问题想要请教大家
我想要做的事情是 把第一个句号之後的内容内容删除(之前的保留)
这个动作直接在档案内复写
我使用big5来编码
test 如下:
my.concepts/123
约九百种，属翼手目。是唯一具飞翔能力。
这是我的code:
use Encode;
use encoding 'big5', STDIN => 'big5', STDOUT => 'big5';
use Tie::File;
my $file="test";
tie @array, 'Tie::File', $file or die $!;
$str = "。";
$restr = quotemeta $str;
for(@array){
s/$restr(.*)//g;
}
untie @array;
请问是regular expression那边出了问题吗?
请大家给一些指教 第一次发问 还不是很懂
非常感谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.84.72.52