my %opts=(GetOptions(
'help|?' => \$help,
'server' => \$server,
'user' => \$user,
'password' => \$password
));
####
GetOptions (\%opts,
qw( help|h|?
server=s
user=s
password=s
));
##
##
&Help;
}
##
##
&Help;
}
elsif( defined $opts{server} && defined $opts{user} && defined $opts{password} ) {
my $mytime=(time);
...
}
else {
&Help;
}
##
##
my $dbh;
my $DSN = "driver={SQL Server};Server=$opts{server};database=$database;";
if ($dbh = DBI->connect("dbi:ODBC:$DSN","$opts{user}","$opts{password}")) {
&Logger ("...Success: connected to database $opts{server}\\$database\n");
}
else {
&Logger("ERROR - Cannot connect to DB: $dbh->errstr()\n");
}
##
##
my $query = "select * from sometable";
my $sth = $dbh->prepare($query);
for my $rec (@records) {
$sth->execute(@$rec);
}
$setsth->finish();
##
##
$setsth->execute(@$rec);
##
##
$sth->execute(@$rec);