George Bouras wrote:
> I want to grab the file name without the extension and without using a
> module.
Can you possibly explain what reason you have for re-inventing this
wheel? When a solution already exists, and is available in the
standard distribution of Perl, why would you want to ignore it and make
an attempt to write your own?
Paul Lalli
I want to grab the file name without the extension and without using a
module. I have a working solution with two regular expressions but I
wonder if it can be done with only one regional expression.
For all the following $node_path the $node_body should be "file".
my $node_path = 'c:/dir.1\dir2\file.bin';
my $node_path = 'c:/dir.1\dir2\file';
my $node_path = 'file.bin';
(my $node_body = $node_path) =~s/.*?([^\\\/]*)$/$1/;
$node_body =~s/\.[^\.]*\s*$//;
print $node_body; # file