Re^2: appending file name

[Anonymous Monk]

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 .

[poj]

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