Comments on: Utf8 in web perl application (LAMP) http://perl.baczynski.com/work/utf8-web-application-lamp Perl, CPAN, YAPC... et ceatera Thu, 28 Jul 2011 08:50:41 +0000 hourly 1 By: admin http://perl.baczynski.com/work/utf8-web-application-lamp/comment-page-1#comment-124 admin Wed, 02 Dec 2009 12:57:06 +0000 http://perl.baczynski.com/?p=147#comment-124 Thaks for comments Sid :) This will be covered in next parts of the series, that were already written and scheduled :) If you'll find anything wrong or not enough described in the serie (this post and next ones), please write a comment. Thanks! Thaks for comments Sid :) This will be covered in next parts of the series, that were already written and scheduled :)
If you’ll find anything wrong or not enough described in the serie (this post and next ones), please write a comment. Thanks!

]]> By: Sid Burn http://perl.baczynski.com/work/utf8-web-application-lamp/comment-page-1#comment-123 Sid Burn Wed, 02 Dec 2009 11:39:14 +0000 http://perl.baczynski.com/?p=147#comment-123 Here is another bit of code with UTF-8 Handling in Perl. The important part of the "utf8" documentation is: > "Bytes in the source text that have their high-bit set will be treated as being part of a literal UTF-X sequence." > #!/usr/bin/env perl > # Core Module > use strict; > use warnings; > use utf8; > # If you print string out to (file)handles that has UTF-8 Flag on, > # perl does automatically encode everything to "ISO-8859-1" > # is also does this with STD* With this line of code we say that > # "all" handles should encode everything to UTF-8 > use open ':encoding(UTF-8)'; > # But "all" is a lie, it does this not with the "STD*" Handles > # With this line we say that the STD* handles gets the same threatment. > # You need this if your terminal is already (UTF-8) (today any Linux > # Distribution should have this) > use open ':std'; > > # "Hello, World!" in german > my $world = 'Hallo, Welt!'; > print utf8::is_utf8($world) ? "UTF-8 ON\n" : "UTF-8 OFF\n"; > > # "apples" in german > my $apples = 'äpfel'; > print utf8::is_utf8($apples) ? "UTF-8 ON\n" : "UTF-8 OFF\n"; > > my %hash = ( > foo => 1, > 'bar' => 1, > äpfel => 1, > 'häuser' => 1, # "Houses" in german > ); > > while ( my ($key, $value) = each %hash ) { > print "Key ($key) has ", utf8::is_utf8($key) ? 'UTF-8 ON' : 'UTF-8 OFF', "\n"; > } Output is: > UTF-8 OFF > UTF-8 ON > Key (bar) has UTF-8 OFF > Key (häuser) has UTF-8 ON > Key (foo) has UTF-8 ON > Key (äpfel) has UTF-8 ON Here is another bit of code with UTF-8 Handling in Perl. The important part of the “utf8″ documentation is:

> “Bytes in the source text that have their high-bit set will be treated as being part of a literal UTF-X sequence.”

> #!/usr/bin/env perl
> # Core Module
> use strict;
> use warnings;
> use utf8;
> # If you print string out to (file)handles that has UTF-8 Flag on,
> # perl does automatically encode everything to “ISO-8859-1″
> # is also does this with STD* With this line of code we say that
> # “all” handles should encode everything to UTF-8
> use open ‘:encoding(UTF-8)’;
> # But “all” is a lie, it does this not with the “STD*” Handles
> # With this line we say that the STD* handles gets the same threatment.
> # You need this if your terminal is already (UTF-8) (today any Linux
> # Distribution should have this)
> use open ‘:std’;
>
> # “Hello, World!” in german
> my $world = ‘Hallo, Welt!’;
> print utf8::is_utf8($world) ? “UTF-8 ON\n” : “UTF-8 OFF\n”;
>
> # “apples” in german
> my $apples = ‘äpfel’;
> print utf8::is_utf8($apples) ? “UTF-8 ON\n” : “UTF-8 OFF\n”;
>
> my %hash = (
> foo => 1,
> ‘bar’ => 1,
> äpfel => 1,
> ‘häuser’ => 1, # “Houses” in german
> );
>
> while ( my ($key, $value) = each %hash ) {
> print “Key ($key) has “, utf8::is_utf8($key) ? ‘UTF-8 ON’ : ‘UTF-8 OFF’, “\n”;
> }

Output is:
> UTF-8 OFF
> UTF-8 ON
> Key (bar) has UTF-8 OFF
> Key (häuser) has UTF-8 ON
> Key (foo) has UTF-8 ON
> Key (äpfel) has UTF-8 ON

]]>