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