PERL腳本鏈接INFORMIX資料庫

#!/usr/local/bin/perl -w
#use strict;
use DBI;
use DBD::Informix;
my $dbh=DBI->connect("dbi:Informix:ds");
$sth=$dbh->prepare("select ima01 from ima_file");
$sth->execute();

while(@ary=$sth->fetchrow_array())
{
    print ("\n",@ary),"\n";
    }
$sth->finish();
$dbh->disconnect();
exit(0);

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/16381228/viewspace-714068/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/16381228/viewspace-714068/