my $short = (split /\//, $Server->File())[$#]

[cate]

Is it possible to do something like that? I can make it work with in
index number. I can make it work with the last array index.

my $short = (split /\//, $Server->File())[$#]

Thank you.

 

[Xho Jingleheimerschmidt]

Is it possible to do something like that? I can make it work with in
index number.

Ah, so then what is the problem/question? Why not use the solution that
works if it works?

my $short = (split /\//, $Server->File())[-1]

I can make it work with the last array index.

my $short = (split /\//, $Server->File())[$#]

You can? That certainly surprises me.

Xho

 

[cate]

Is it possible to do something like that?  I can make it work with in
index number.

Ah, so then what is the problem/question?  Why not use the solution that
works if it works?

my $short =  (split /\//, $Server->File())[-1]

I can make it work with the last array index.

   my $short =  (split /\//, $Server->File())[$#]

You can?  That certainly surprises me.

Xho

thanks.... typo... only in the borros world thanks again

 

[Dr.Ruud]

my $short = (split /\//, $Server->File())[$#]

my ($short) = $Server->File() =~ m~(?:.*/)?(.*)~;

my ($short) = $Server->File() =~ m~([^/]*)$~;

File::Basename

 

[Wanna-Be Sys Admin]

Is it possible to do something like that? I can make it work with in
index number. I can make it work with the last array index.

my $short = (split /\//, $Server->File())[$#]

Sure you can do it, but not with $Server->File(), since it's not an
array. Of course, you can build an array by using / as a delimiter and
then split, but that would be doing double the work when you can
determine the last element by split in the first place, or by using a
regex instead.

 

[sln]

Is it possible to do something like that? I can make it work with in
index number. I can make it work with the last array index.

my $short = (split /\//, $Server->File())[$#]

Thank you.

Not really a good way to do it.
Untested.

$short = (reverse split(/\//, $Server->File) )[0] || 'empty';

or

$short = (@_= split /\//, $Server->File )[$#_] || 'empty';

-sln