Thank you for your reply! For the first time my search succeeded! But if I try to replace it with my LaTeX-code, it is not working anymore! And this is the crucial question: I need to replace every emoticon with a small icon!
But the search is succeeding in a "buggy" way ... Only two attempts worked:
while(<>) { foreach (/\N{FACE THROWING A KISS}/g) {print "hurray! And here is your + emoticon!\n"}; }
And putting the emoticon directly in. Here once again my Perl-Filter:
#!/usr/bin/perl use strict; use warnings; use utf8; use charnames ':full'; use open qw( :encoding(utf-8) :std ); # while(<>) { # Not working # s!\N{FACE THROWING A KISS}!\\includegraphics[height=15pt]{/Users/m +step/Documents/private_txt/anette/pix/emo01.png}!g; # } # while(<>) { # Not working # s!😘!\\includegraphics[height=15pt]{/Users/mstep/Documents/ +private_txt/anette/pix/emo01.png}!g; # } # while(<>) { # foreach (/\x{0020}/g) {print "hurray!\n"}; # this is working! (Searc +hes for a space!) # } # while(<>) { # foreach (/\N{FACE THROWING A KISS}/g) {print "hurray! And here is yo +ur emoticon!\n"}; # this is working!!! # } # while(<>) { # foreach (/😘/g) {print "hurray! And here is your emoticon!\n" +}; # this is working!!! # } # while(<>) { # foreach (/\x{D83D}\x{DE18}/g) {print "hurray! And here is your emoti +con!\n"}; # this is not working! # } # while(<>) { # foreach (/\x{3DD8}\x{18DE}/g) {print "hurray! And here is your emoti +con!\n"}; # this is not working! # } # while(<>) { # foreach (/\N{U+D83DDE18}/g) {print "hurray! And here is your emotico +n!\n"}; # this is not working! # } # while(<>) { # foreach (/\N{U+D83D}\N{U+DE18}/g) {print "hurray! And here is your e +moticon!\n"}; # this is not working! # }
In reply to Re^2: replace some emoticons - search pattern needed
by marek1703
in thread replace some emoticons - search pattern needed
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |