jak v Perlu na MYSQL

[Jiri Kratochvil]

modul DBI:

<code>
use DBI;

my %db = (
   database => "DBI:mysql:database=db",
   handle => undef,
   query => {}
   );

#connect db
$db{handle} = DBI->connect($db{database});
unless ($db{handle})
   {
   syslog('error',$DBI::errstr);
   die $DBI::errstr;
   }

#prepare queries
$db{query}{get_all} = $db{handle}->prepare(
   'SELECT * FROM _table');

my $rv = $db{query}{get_all}->execute();
my $fetch;
while ($fetch = $db{query}{get_all}->fetch())
   {
   my $msg = sprintf(@$fetch[1],@$fetch[2]); # prvni dva sloupce
   }

#disconnect DB
if ($db{handle})
   {
   $db{handle}->disconnect();
   }

<\code>