http://nlp.kimura-s.otaru-uc.ac.jp/Perl/KeywordOtaruBlog.cgi
#!/usr/bin/perl #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 ¥Æ¡¼¥Ö¥ë̾ LIMIT 0 , 100" ); # SQLʸ¤Î¼Â¹Ô $sth->execute; print "Content-type: text/html\n\n"; print <<EOF; <html> <body> <ol> EOF # ¥Ç¡¼¥¿¤Î¼èÆÀ¤È½ÐÎÏ while(@row = $sth->fetchrow_array) { #print "@row\n"; print "<li>$row[2]</li><ul>\n"; for($i=0;$i<@row;$i++){ print "<li>$row[$i]</li>\n"; } print "</ul>"; } print <<EOF; </ol> </body> </html> EOF