[問題] 一個中文取代的問題
大家好~
小弟有個問題想要請教大家
我想要做的事情是 把第一個句號之後的內容內容刪除(之前的保留)
這個動作直接在檔案內複寫
我使用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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章