Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^3: foreach loop and creating files with "$_"

by xyzzy (Pilgrim)
on Jul 22, 2014 at 04:24 UTC ( #1094585=note: print w/replies, xml ) Need Help??

in reply to Re^2: foreach loop and creating files with "$_"
in thread foreach loop and creating files with "$_"

Here's some more unrequested advice:

for (1..$num) { open my $fh, '>', sprintf "temp%02d",$_; # temp01, temp02, etc. ... }
Consider doing this if you plan to have more than 9 temp files and you want to keep them in numerical order. %02d will pad an integer with leading zeroes until it's two digits long. For more information, consult perldoc -f sprintf. You can even use a base-10 logarithm before the loop to figure out how many leading zeroes you would need, then insert that number into your format string.

EDIT: forgot that $_ is not implied with sprintf

$,=qq.\n.;print q.\/\/____\/.,q./\ \ / / \\.,q.    /_/__.,q..
"My life is like my typing: fast and full of mistakes."

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2021-04-21 07:13 GMT
Find Nodes?
    Voting Booth?

    No recent polls found