my $filename="/usr/local/bin/perl"; my $accu=""; my $nb=0; map{$nb++;$accu.="/".$_;print "$nb. $accu\n";} split(/\//, $filename);
In reply to Re: List directory(s)
by jeepj
in thread List directory(s)
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |