Wie kann ich alle £ in einer Datei mit £ durch Perl ersetzen?

Question

Ich versuche, alle £ Symbole in einer HTML-Datei mit £ zu ersetzen. Mein regulärer Ausdruck scheint nicht zu funktionieren.

Könnten Sie bitte helfen?

Answer 1

Dies sollte funktionieren,

seit £ als 0xA3 auf meinem Hexdump angezeigt.

Aber, so wird

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

Sagen Sie einfach

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

Answer 2

Sie am meisten haben wahrscheinlich vergessen zu:

use utf8; 

das folgende Programm Versuchen:

#!/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£. 

Wenn Sie aus einer Datei input Namen lesen möchten und output in eine Datei schreiben genannt:

#!/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