£의 파일에있는 모든 £를 Perl로 대체하려면 어떻게해야합니까?

Question

HTML 파일의 £ 기호를 모두 £으로 바꾸려고합니다. 내 정규식이 작동하지 않는 것 같습니다.

도와 주시겠습니까?

use utf8; 

다음 프로그램을 시도해보십시오 :

Answer 1

이것은 작동합니다.

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

£이 내 헥스 덤프에 0xA3으로 표시되어 있기 때문입니다.

그러나, 그래서

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

그냥 말할 것이다 그렇게 작동하지 않았다 사람들이 당신을 무엇이 잘못되었는지 볼 수 있도록 도와줍니다 뭘하려

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

Answer 2

당신은 대부분의 아마하려면 잊어

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