How to detect emoji as unicode in Perl?
问题 i have text file that contain emoji unicode caracter for exemple 😤, ☹️, 😔, 😅, 😃, 😉, 😜, 😍. For example the code \N{1F60D} correspond to 😍 I use recommendation as in https://perldoc.perl.org/perluniintro.html section Creating Unicode. My program must detect them and do some treatments, but if i use open(FIC1, ">$fic"); while (<FIC>) { my $ligne=$_; if( $ligne=~/\N{1F60D}/ ) {print "heart "; } } Now I do this, it work open(FIC1, ">$fic"); while (<FIC>) { my $ligne=$_; if( $ligne=~/😍/ ) {print