#!/usr/bin/perl
use DBI;
my $now = localtime();
push (@now,split(/\s/,$now));
$mm=$now[1];
$dd=$now[2];
$hh=$now[3];
$yy=$now[4];
$now1="$yy$mm$dd$hh";
#after this i need alphabetics like
"$yy$mm$dd$hhA"
"$yy$mm$dd$hhB"
...
"$yy$mm$dd$hhZ"
"$yy$mm$dd$hhAA"
this is mysql code
$dbh=DBI->connect('DBI:mysql:suntelivr','xxxx','xxxx') or $DBI::errstr
+;
$sth=$dbh->prepare("insert into sequenceno (filename) values ('$now1")
+;
$sth->execute;
$sth=$dbh->prepare("select * from sequenceno");
$sth->execute;
while(@ss=$sth->fetchrow_array()){
$now1=$ss[$i+1]."_".$ss[$i];
}
Mar 24, 2008 at 18:34 UTC McDarren Added code tags, removed sensitive information from code.
|