如何用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