Getting Text Value , in Single line

[George Kinley]

I have a String, which is long Path of a file
for example "c:\kl\w\e\l\pol....\FileName.EXT" now I want to have
"FileName" out of this Sting, I can very well do it by writing a few l
lines of code, can it be done in single line,

--

 

[Jürgen Exner]

I have a String, which is long Path of a file
for example "c:\kl\w\e\l\pol....\FileName.EXT" now I want to have
"FileName" out of this Sting, I can very well do it by writing a few l
lines of code, can it be done in single line,

use File::Basename;
($name,$path,$suffix) = fileparse($fullname,@suffixlist);

Ok, that's two lines, but correctness is more important then shortness, even
in Perl golf.

jue

 

[Mladen Gogala]

I have a String, which is long Path of a file
for example "c:\kl\w\e\l\pol....\FileName.EXT" now I want to have
"FileName" out of this Sting, I can very well do it by writing a few l
lines of code, can it be done in single line,

$ pwd
/home/mgogala/Business/work
$ pwd|perl -ne '$A=(split(/\//))[-1]; print $A;'
work
$

 

[Tony Muler]

I have a String, which is long Path of a file
for example "c:\kl\w\e\l\pol....\FileName.EXT" now I want to have
"FileName" out of this Sting, I can very well do it by writing a few l
lines of code, can it be done in single line,

Looks like you want anything between the last path separator
and the last dot in the full path?

my $full = 'c:\kl\w\e\l\pol....\FileName.EXT';
my ($base) = $full =~ /.*\\(.*)\..*/;

This works also for pathnames with less '....' ;-)

But as someone mentioned already:
File::Basename might do it better.

T.