Help for this page
# cat pf1 #! /usr/local/bin/perl ... find({wanted => sub {print $File::Find::name,"\n" if -d}, no_chdir => 1}, "$dir");
# find da da ... da/s3/sz/f8 da/s3/f6 da/s4
# ./pf1 ./da ./da ... ./da/s2/sx ./da/s2/sx/sa ./da/s1
www.com | www.net | www.org
No recent polls found