MySQL¤«¤é¥Ç¡¼¥¿Ãê½Ð¡¡»²¹Í¡¡http://www.rfs.jp/sb/perl/dbi/02.html
#DBI ¥â¥¸¥å¡¼¥ë¤ÎÆÉ¤ß¹þ¤ß use DBI; # ¥Ç¡¼¥¿¥½¡¼¥¹¤Î»ØÄê $dsn = 'DBI:mysql:¥Ç¡¼¥¿¥Ù¡¼¥¹Ì¾:www:3306'; # ¥Ç¡¼¥¿¥½¡¼¥¹ $dsn = 'DBI:mysql:¥Ç¡¼¥¿¥Ù¡¼¥¹Ì¾'; # ¥æ¡¼¥¶Ì¾ $user = '****'; # ¥Ñ¥¹¥ï¡¼¥É $password = '****'; # ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ØÀܳ $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1, AutoCommit => 0 }); # prepare¤¬À®¸ù¤·¤¿¾ì¹ç¡¢¥¹¥Æ¡¼¥È¥á¥ó¥È¥Ï¥ó¥É¥ë¤¬ÊÖ¤µ¤ì¤Þ¤¹ my $sth = $dbh->prepare( "SELECT * FROM ¥Æ¡¼¥Ö¥ë̾" ); # SQLʸ¤Î¼Â¹Ô $sth->execute; # ¥Ç¡¼¥¿¤Î¼èÆÀ¤È½ÐÎÏ while(@row = $sth->fetchrow_array) { print "@row\n"; for($i=0;$i<@row;$i++){ print "$i $row[$i]\n"; } } $sth->finish; $dbh->disconnect;