Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: appending file name

by mtmcc (Hermit)
on Jul 17, 2013 at 10:38 UTC ( #1044785=note: print w/replies, xml ) Need Help??

in reply to appending file name

Or this:

#!/usr/bin/perl use strict; use warnings; my $filename = ""; chomp $filename; my @filename = split ('\.', $filename); $filename[$#filename] = 'newEnding.txt'; my $newFilename = join('.', @filename); print STDERR "OLD: $filename\tNEW: $newFilename\n";


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"; }
    the commented line is what I have added , so it takes only the first time name ,not the correct one .
      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://1044785]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2019-10-14 08:30 GMT
Find Nodes?
    Voting Booth?