Perl 要存取 mysql 要安裝 DBD package man DBD::mysql; use DBI; $data_source = "DBI:mysql:database=$dbname;host=$dbhost;port=$dbport"; $dbh = DBI->connect($data_source, $dbuser, $dbpass);