Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Sequentially numbering output files rather than overwriting an existing file

by educated_foo (Vicar)
on Jan 08, 2014 at 17:05 UTC ( #1069835=note: print w/ replies, xml ) Need Help??


in reply to Sequentially numbering output files rather than overwriting an existing file

For the first unused "$name$n.txt" file:

if (-f "$name.txt") { $n=1; $n++ while -f "$name$n.txt"; }
For one greater than the highest "$name$n.txt" file, something like kcott's solution below works.


Comment on Re: Sequentially numbering output files rather than overwriting an existing file
Download Code
Replies are listed 'Best First'.
Re^2: Sequentially numbering output files rather than overwriting an existing file
by marinersk (Curate) on Jan 08, 2014 at 18:03 UTC
    For more visually pleasing output:
    if (-f "$name.txt") { $n=1; my $fn = sprintf "%s-%05d\.txt", $name, $n; $n++ while -f $fn; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1069835]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (15)
As of 2015-07-31 09:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (276 votes), past polls