Menu Search

CGI/Perl

UTF 8 Encoding with Perl
#!perl
# Ben?tigt eine Tabelle
# create table utf8 (a varchar(255));
# in der Datenbank test
use DBI;
use Tk;
use Encode;
$mw = tkinit;
$mw−>Entry(−textvariable => \$input)−>pack;
$mw−>Label(−textvariable => \$output)−>pack;
$mw−>Button(−text => "Do DB operation",
−command => sub {
$dbh = DBI−>connect("dbi:mysql:test", "test", "", { RaiseError => 1 });
$octets = Encode::encode("utf−8", $input);
$dbh−>do("delete from utf8");
$dbh−>do("insert into utf8 values(')", undef, $octets);
$res = $dbh−>selectall_arrayref("select * from utf8");
$octets_returned = $res−>[0][0];
$output = Encode::decode("utf−8", $octets_returned);
})−>pack;
MainLoop;
__END__

Liste

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

Index

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

LetzteChance.Org - Links -

PDF/ZIP/Word