in reply to how to remove everything before last slash in perl?

#!/usr/bin/perl --
use strict; use warnings;
use Path::Class;

@ARGV or @ARGV = (
qw'
  y:/home/lib/directory/book
  y:/home/lib/directory/book_manager
  y:/home/lib/directory/piano_book 
' );

print file($_)->basename,"\n" for @ARGV;
__END__
__END__
book
book_manager
piano_book

[download]

Replies are listed 'Best First'.
Re^2: how to remove everything before last slash in perl?
by Anonymous Monk on Jun 24, 2012 at 04:35 UTC

    dir have basename too 

    $ perl -MPath::Class -le " print dir($_)->basename for @ARGV" ro/sham/
+bo ono/mato/poeia otorhinolaryngology
bo
poeia
otorhinolaryngology

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom