Perl 5 und UTF-8 ... bearbeitet von Google weiß alles 21.06.2016 18:11 > nein, nur, dass du nicht weißt, wie man UTF-8 mit PHP ausgibt (tat ich auch nicht, aber 5 Minuten suchen half): Aha. In PHP habe ich keine Probleme. Dein Skript mal leicht abgewandelt und getestet: Terminal: ~~~ $ echo $LANG de_DE.UTF-8 ~~~ Skript: ~~~perl #!/usr/bin/perl ## file:///tmp/test4.pl use strict; my $s; my $a; my $useUTF8 = shift; if ($useUTF8 eq 'u') { print "benutze UTF-8\n"; use utf8; } $s = 'äÄüÜöÖß'; $a = quotemeta($s); print "-"x14 , ' Start ', "-"x14, "\n"; print $a . "\n"; print `echo $a`; print "-"x5 , 'binmode(STDOUT, ":utf8");', "-"x5, "\n"; binmode(STDOUT, ":utf8"); $s = 'äÄüÜöÖß'; $a = quotemeta($s); print $a . "\n"; print `echo $a`; print "="x36 , "\n\n"; ~~~ Output 1: ~~~ /tmp$ perl test4.pl u benutze UTF-8 -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Output 2: ~~~ /tmp$ perl test4.pl -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Brauchbar geht irgendwie anders ...
Perl 5 und UTF-8 ... bearbeitet von Google weiß alles 21.06.2016 18:16 > nein, nur, dass du nicht weißt, wie man UTF-8 mit PHP ausgibt (tat ich auch nicht, aber 5 Minuten suchen half): Aha. Leicht abgewandelt: Terminal: ~~~ $ echo $LANG de_DE.UTF-8 ~~~ Skript: ~~~perl #!/usr/bin/perl ## file:///tmp/test4.pl use strict; my $s; my $a; my $useUTF8 = shift; if ($useUTF8 eq 'u') { print "benutze UTF-8\n"; use utf8; } $s = 'äÄüÜöÖß'; $a = quotemeta($s); print "-"x14 , ' Start ', "-"x14, "\n"; print $a . "\n"; print `echo $a`; print "-"x5 , 'binmode(STDOUT, ":utf8");', "-"x5, "\n"; binmode(STDOUT, ":utf8"); $s = 'äÄüÜöÖß'; $a = quotemeta($s); print $a . "\n"; print `echo $a`; print "="x36 , "\n\n"; ~~~ Output 1: ~~~ /tmp$ perl test4.pl u benutze UTF-8 -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Output 2: ~~~ /tmp$ perl test4.pl -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Brauchbar geht irgendwie anders ...
Perl 5 und UTF-8 ... bearbeitet von Google weiß alles 21.06.2016 18:15 > nein, nur, dass du nicht weißt, wie man UTF-8 mit PHP ausgibt (tat ich auch nicht, aber 5 Minuten suchen half): Aha. Leicht abgewandelt: ~~~perl #!/usr/bin/perl ## file:///tmp/test4.pl use strict; my $s; my $a; my $useUTF8 = shift; if ($useUTF8 eq 'u') { print "benutze UTF-8\n"; use utf8; } $s = 'äÄüÜöÖß'; $a = quotemeta($s); print "-"x14 , ' Start ', "-"x14, "\n"; print $a . "\n"; print `echo $a`; print "-"x5 , 'binmode(STDOUT, ":utf8");', "-"x5, "\n"; binmode(STDOUT, ":utf8"); $s = 'äÄüÜöÖß'; $a = quotemeta($s); print $a . "\n"; print `echo $a`; print "="x36 , "\n\n"; ~~~ Output 1: ~~~ /tmp$ perl test4.pl u benutze UTF-8 -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Output 2: ~~~ /tmp$ perl test4.pl -------------- Start -------------- \�\�\�\�\�\�\�\�\�\�\�\�\�\� äÄüÜöÖß -----binmode(STDOUT, ":utf8");----- \Ã\¤\Ã\\Ã\¼\Ã\\Ã\¶\Ã\\Ã\ äÃüÃöÃà ==================================== ~~~ Brauchbar geht irgendwie anders ...
nicht angemeldet nicht angemeldet
