Replace file extension txt to csv

txt2csv.pl

#!perl

use strict;
use warnings;

use File::Basename;
use File::Spec;
use File::Copy;

my $file = shift;
if( !defined($file) ) { die "Usage : $0 <text file>"; }

my ($fn, $path, $ext) = fileparse($file, 'txt');
if( $ext ne 'txt' ) { die "$file is not text file..."; }

my $new_file = File::Spec->catfile($path, join("", $fn, "csv"));

if( copy $file, $new_file ) {
	print "copy $new_file success!\n";
}
else {
	print "copy $new_file failed...\n";
}