in reply to appending file name

Or this: 

#!/usr/bin/perl 
use strict;
use warnings;

my $filename = "rahul.abc";
chomp $filename;  

my @filename = split ('\.', $filename);
$filename[$#filename] = 'newEnding.txt';
my $newFilename = join('.', @filename);

print STDERR "OLD: $filename\tNEW: $newFilename\n";

[download]

-Michael

Replies are listed 'Best First'.
Re^2: appending file name
by Anonymous Monk on Jul 17, 2013 at 10:50 UTC
    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";
     }

    [download]
    the commented line is what I have added , so it takes only the first time name ,not the correct one .
[reply]
[d/l]
      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
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom