Re^2: incrementing the file

in reply to Re: incrementing the file
in thread incrementing the file

Hi Ken, I am generating a new file which has name of previous file and a numerical suffix which is incremented everytime... eg file 1 then file 2.....

Comment on Re^2: incrementing the file

Replies are listed 'Best First'.
Re^3: incrementing the file by oko1 (Deacon) on Feb 22, 2012 at 05:02 UTC
You can try starting with a "templated" filename and increment it until you get past all the existing files: `my $fn = "output000"; $fn++ while -e $fn;` [download] At that point, you'll have a filename that is just past the last one of that pattern. Minor caveat: make sure you have enough zeroes at the end of the template - or you'll start incrementing the characters. Yes, really. `ben@feynman:~$ perl -wle'$number = "one"; $number++ for 1..3624; print + $number' two` [download] :) -- I hate storms, but calms undermine my spirits. -- Bernard Moitessier, "The Long Way"	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: incrementing the file
by oko1 (Deacon) on Feb 22, 2012 at 05:02 UTC

You can try starting with a "templated" filename and increment it until you get past all the existing files:

my $fn = "output000";
$fn++ while -e $fn;
[download]

At that point, you'll have a filename that is just past the last one of that pattern. Minor caveat: make sure you have enough zeroes at the end of the template - or you'll start incrementing the characters. Yes, really.

ben@feynman:~$ perl -wle'$number = "one"; $number++ for 1..3624; print
+ $number'
two
[download]

-- 
I hate storms, but calms undermine my spirits.
 -- Bernard Moitessier, "The Long Way"

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom