perl -le '$x=A;for(1..100){print $x++}'
[download]

hi, i don't want it in for loop because i am going to run the program for each and every one hour. so, while compling the program second time i need to add the alphabetics at the end of the orginal file name

I said it was a clue, not the whole solution :p

And you obviously missed the clue. Let me explain....

You want a sequence that goes A,B,....X,Y,Z,AA,AB, etc.... right?

Then all you need to do is use the auto-increment operator (++). Suggest you have a read of perlop (look for the "Auto-increment and Auto-decrement" section).

Cheers,
Darren :)

#!/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];
}
[download]

---

Mar 24, 2008 at 18:34 UTC McDarren Added code tags, removed sensitive information from code.

I see you've already got your answers. But I just have to ask: Why not just add the hour (and possibly minute) to your filename? That way, they'd automagically have different names as you mention that you're running it on an hourly basis.

Update:

Often the database system you are working with already has a way of doing what you think you have to do in Perl. TAMTOWTDI ... but using the technique native to the database can work a lot faster and easier than home-brewing your own code.