use File::Basename qw(fileparse);
my $basename = fileparse 'foo/table.xls', qr/\.[^.]*/;
__END__
table
[download]

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

print STDERR "Enter filename: ";
my $fileName = <STDIN>;
chomp $fileName;

die "$fileName not found.\n\n" unless -e $fileName;

my @name = split ('\.', $fileName);
$name[$#name] = "txt";
my $newFileName = join(".", @name);

print STDERR "\nOLD: $fileName\nNEW: $newFileName\n\n";

open (IN, "<", $fileName);
open (OUT, ">", $newFileName);

while (<IN>)
    {
        #do stuff...
        #print OUT "output";
    }
[download]

ya I think this will work out , Thanks . I will try it and if I en counter any issue , I will post it

hey

your code is working when the user inputs the name correctly the first time , but if he gives a wrong name the first time , 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 line commented out by me is what I did so everytime user inputs the file name it should get updated but its not happening , can you tell me why

Is this what you mean?

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

my $ending = "txt";

print STDERR "Enter filename: ";
my $fileName = <STDIN>;
chomp $fileName;

while (!-e "$fileName")

    {
        print STDERR "$fileName not found. Try again, or quit (q): ";
        $fileName = <STDIN>;
        chomp $fileName;
        exit () if $fileName eq "q";
    }

my @name = split ('\.', $fileName);
$name[$#name] = $ending if @name >= 2;
push(@name, $ending) if @name == 1;
my $newFileName = join(".", @name);

print STDERR "\nOLD: $fileName\nNEW: $newFileName\n\n";

open (IN, "<", $fileName);
open (OUT, ">", $newFileName);

while (<IN>)
    {
        #do stuff...
        #print OUT "output";
    }
[download]

-Michael

You can give the same name as long as the extension is different i believe , if this is what you mean.

ya extension is different , but since i took an input from user and assigned it to a file handler which is closed so how can I give that name to the text file