如何用Perl替換£中的所有文件？

Question

我試圖用£替換HTML文件中的所有£符號。我的正則表達式似乎不起作用。

你能幫忙嗎？

Answer 1

這應該工作，

#!/usr/bin/perl 
# File: convert.pl 
no utf8; # its not required 
while (<>) { 
    s/(\xa3)/pound/g; 
     print; 
} 

因爲£在我的hexdump上顯示爲0xA3。

但是，這樣會

#!/usr/bin/perl 
while (<>) { 
    s/£/pound/g; 
     print; 
} 

只是說

chmod a+x convert.pl 
convert.pl yourfile.html > newfile.html 

Answer 2

你很可能忘了：

use utf8; 

試試下面的程序：

#!/usr/bin/perl 

use strict; 
use warnings; 
use utf8; 

while (<DATA>) { 
    s/£/&pound;/g; 
    print 
} 

__END__ 
This is sample text with lots of £££! 
50£ is better than 0£. 

如果你想從一個名爲input文件的讀取和寫入名爲output文件：

#!/usr/bin/perl 

use strict; 
use warnings; 
use utf8; 

open my $input, '<', 'input' or die $!; 
open my $output, '>', 'output' or die $!; 

binmode $input, ':utf8'; 

while (<$input>) { 
    s/£/&pound;/g; 
    print $output $_; 
} 

Answer 3

perl -i.bak -ne 's/£/&pound/g; print $_' file