Mac에서 Perl로 £를 파싱합니다.

Question

저는 엘 캐피 탄이 운영되는 Mac에서 perl을 사용하여 영국 통화 인 £ 기호가 포함 된 행을 구문 분석하려고하지만 구문 분석을 할 수 없습니다. 이상적으로는 문자열을

@Line=split("£",$Hit);

을 분할하지만, 심지어 정규 표현식이 동작하지 않습니다 사용하고 싶습니다. 이스케이프가 작동하지 않습니다 Mac 문자 집합 문제입니까? 터미널에있는 리스팅은? £ 대신에

대상 텍스트는 시몽의 작곡가에 의해 쓰여진 HTML에서 지정된 앵커에서 온다 :

<a name="word1£word2">

Answer 1

utf8 pragma는 유니 코드 문자로 사용하십시오. 샘플 코드는 다음과 같습니다.

use strict; 

use utf8; 

my $str = qq~<a name="word1£word2">~; 
my ($first, $second) = split("£", $str); 

print "$first $second\n"; 

Answer 2

하나의 간단한 대답은 \N{U+00A3}가 £에 대한 유니 코드

@Line=split("\N{U+00A3}",$Hit); 

될 것이다.