Help for this page

Select Code to Download

Select or download this

perl -MFile::Basename -e 'foreach (@ARGV) { print "$_: ", dirname ($_)
+, " : ", basename($_), "\n"}' /home/oed /home/oed/. /home/oed/
/home/oed: /home : oed
/home/oed/.: /home/oed : .
/home/oed/: /home :