Comment puis-je remplacer tout £ dans un fichier avec £ avec Perl?

Question

J'essaie de remplacer tous les symboles £ dans un fichier HTML avec £. Mon expression régulière ne semble pas fonctionner.

Pourriez-vous m'aider s'il vous plaît?

Answer 1

Cela devrait fonctionner,

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

puisque £ a montré comme 0xA3 sur mon hexdump.

Mais, il en sera

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

Il suffit de dire

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

Answer 2

Vous avez très probablement oublié de:

use utf8; 

Essayez le programme suivant:

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

Si vous voulez lire à partir d'un fichier nommé input et écrire dans un fichier nommé 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