
mysql
monicholas
这个作者很懒,什么都没留下…
展开
-
用perl语言mysql 检查数据库是否存在并删除
#!/bin/perluse DBI;use strict;my $dbh = DBI->connect("DBI:mysql:host=XXX", "XXX", "XXX",{'RaiseError' => 1}); //连接数据库$dbh -> do("DROP database if exists mo原创 2012-04-13 14:39:31 · 403 阅读 · 0 评论 -
perl mysql
#!/usr/bin/perl 2 use DBI; #启用DBI接口 3 use strict; 4 5 my $dbh = DBI->connect("DBI:mysql:host=localhost", 6 "root", "PWD",{'RaiseError' => 1}); 7 #建库原创 2014-08-02 18:06:45 · 586 阅读 · 0 评论