My 3th Perl Programm

The current dir show...

CODE
[br]#!/usr/local/bin/perl[br][/br]# dir path [/br]$sdir='.';[br]opendir(DIR,$sdir) || die "can't opendir $some_dir: $!";[/br]@dots = grep {-d "$sdir/$_"} readdir(DIR);[br]rewinddir(DIR);[/br]@fils = grep {-f "$sdir/$_"} readdir(DIR);[br]foreach (@dots){[/br] print "$_\n";[br]}[/br]foreach (@fils){[br] print "$_\n";[br]}[/br]closedir DIR;[/br]

Comment/Reply (w/o sign-up)