Perl에서 이모티콘을 유니 코드로 감지하는 방법은 무엇입니까?

Question

예를 들어 이모티콘 unicode caracter가 포함 된 텍스트 파일을 가지고 있습니다. ☹️,,,,,,,.

예를 들어, 코드 \ N {1F60D}는 에 해당합니다. https://perldoc.perl.org/perluniintro.html 섹션 유니 코드 만들기의 권장 사항을 사용합니다. 내 프로그램을 감지하고 어떤 치료를 수행하지만 난

open(FIC1, ">$fic"); 

while (<FIC>) { 
my $ligne=$_; 

if($ligne=~/\N{1F60D}/ ) 
{print "heart "; 
    } 
} 

를 사용하는 경우 지금은 이렇게, 그것은 첫 번째 코드 감사의 문제점은 무엇

open(FIC1, ">$fic"); 

while (<FIC>) { 
my $ligne=$_; 

if($ligne=~// ) 
{print "Heart "; 
    } 
} 

을 일해야

Answer 1

에 대해 perldoc perlre을 보면 "유니 코드 문자 또는 문자 시퀀스"라는 의미입니다.

당신이 대신 사용할 수 있습니다

if ($ligne =~ m/\N{U+1F60D}/) 
# or 
if ($ligne =~ m/\x{1F60D}/) 

편집 : 그것은 또한 당신이 게시 된 링크에 설명 된 것 https://perldoc.perl.org/perluniintro.html

편집 : 당신이 읽은 내용이 아마 을 디코딩하지 않습니다. 당신이 원하는 :

use Encode; 
... 
my $ligne = decode_utf8 $_; 

하거나 직접 UTF8 모드에서 파일을 엽니 다

open my $fh, "<:encoding(UTF-8)", $filename or die "Could not open $filename: $!"; 
while (my $ligne = <$fh>) { 
    if ($ligne =~ m/\N{U+1F60D}/) { ... } 
} 

당신은 당신이 FIC라는 파일 핸들을 열 방법을 보여주지 않았다, 그래서 나는 그것이 UTF8 디코딩했다 추측했다. https://perlgeek.de/en/article/encodings-and-unicode

Answer 2

사용 perl -C 유니 기능

perl -C -E 'say "\N{U+263a}"'|perl -C -ne 'print if /\N{U+263a}/' 

from perl run

-C [개/목록]

을 활성화하는데 사용될 수있다 : 여기 펄 유니 대한 또 다른 좋은 가이드는 -C 플래그는 Perl 유니 코드 기능 중 일부를 제어합니다. perl -ne 'print if /\xf0\x9f\x98\x8d/'에서 같이 ... 두 번째 코드가 작동하는 이유

이유는 펄이 UTF-8 진 순서와 일치한다는 것입니다.

감지 이모티콘 들어

#!/usr/bin/perl -C 
open(FIC1, ">$fic"); 

while (<FIC>) { 
    my $ligne=$_; 

    if($ligne=~/\N{U+1F60D}/ ) { 
     print "heart "; 
    } 
} 

Answer 3

를 작동해야 다음, 나는 예를 들어, 정규 표현식에, 유니 코드 속성을 사용합니다:

• \p{Emoticons} 또는
• \p{Block: Emoticons}

예를 들어,

perl -CSDA -nlE 'say for(/(\p{Emoticons})/g)' <<< 'abcαβγ' 

012를 참조 더 많은 정보

를 인쇄에만 이모티콘을 인쇄