in reply to perl script to print just directory names
One way is to use File::Basename::basename:
use File::Basename; # in your loop... print basename($file);
See also:
|
---|
In Section
Seekers of Perl Wisdom