Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: appending file name

by Anonymous Monk
on Jul 17, 2013 at 10:50 UTC ( #1044788=note: print w/ replies, xml ) Need Help??


in reply to Re: appending file name
in thread appending file name

Hey Michael

the issue is as you posted the code for the previous problem in thread "giving same name to two files " . If the first time input is correct then it works fine , but if the user gives wrong file name , so I am doing this

while (!-e $filename) { print "-*-*--*-*--*-*--*-*--*-*--*-*--*-*--*-*--*-*--*-*--*- +*--*-*--*-*--*-*--*-*--*-*--*-*--*-*-\n"; print STDERR "\n$filename not found. \n Ensure that you have + given the correct file name\n and the file exists in the working dir +ectory \n."; print "Re-enter filename, or q to quit: "; $filename = <STDIN>; chomp $filename; # my @filenam = split ('\.', $filename); exit() if $filename eq "q"; }
the commented line is what I have added , so it takes only the first time name ,not the correct one .


Comment on Re^2: appending file name
Download Code
Re^3: appending file name
by poj (Priest) on Jul 17, 2013 at 11:26 UTC
    By using my @filenam you are declaring it local to the loop and not accessible outside that block. Either move the line to outside and after the while block or remove the my inside the loop.
    poj

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (15)
As of 2014-10-21 13:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (103 votes), past polls