Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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 .

Replies are listed 'Best First'.
Re^3: appending file name
by poj (Monsignor) 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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1044788]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2018-03-17 14:42 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (224 votes). Check out past polls.