Perl: Unicode handling

README

http://gist.github.com/2118

Unicode handling in Perl.

binmode.pl

#!/usr/bin/perl 
use strict; use warnings;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';

while (<STDIN>) {
    print STDOUT $_;
}

encode_decode_utf8.pl

#!/usr/bin/perl 
use strict; use warnings;
use Encode qw(encode_utf8 decode_utf8);

while (my $in = <STDIN>) {
    my $s = decode_utf8($in);
    my $out = encode_utf8($s);
    print STDOUT $out;
}

mysql_utf8.pl

my $dbh = DBI->connect($dsn, $db_username, $db_password, {RaiseError => 1})
    or die "Couldn't connect to database: $DBI::errstr\n";

my $set_utf8_sql = qq{SET NAMES 'utf8';};
$dbh->do($set_utf8_sql);