Nov 9, 2010, 8:21 PM
Re: [srenin] [Edit .CSV file] Add column
Ah, I expected File::Basename to have split the filename from extension.
my ($filename, $filepath, $filesuffix) = fileparse($file);
my $filename = $file;
$filename =~ s/\.[^.]*$//;
Which uses a regular expression instead.
(This post was edited by Zhris on Nov 9, 2010, 8:22 PM)