#!/usr/local/bin/perl use strict; use warnings; use Sys::Hostname; use DBI; my $DEBUG = 0; my $dbun = 'user'; # username to connect to sql database with my $dbpw = 'pass'; # password to connect to sql database with my $dsn = 'DBI:mysql:host=mysql.example.net;database=dns'; # dsn to access database my $dbh = DBI->connect($dsn, $dbun, $dbpw, {RaiseError => 1}); my $dir = '/home/config/tinydns/secon...

by snowtty - Linux文档专区 - 2009-12-09 12:18:43 阅读（699） 回复（0）