print "\n\nEnter the path (c:/dir/dir/file.ext)\n"; print "R-> "; my $path = <STDIN>; chomp $path; opendir LOCALDIR, "$path"; my @local_files = grep !/^\.\.?$/, readdir LOCALDIR; closedir LOCALDIR; my $n=@local_files; for (my $i=0; $i<$n; $i++) { print "$local_files[$i] $local_files[$i+1] $local_files[$i+2] $local_f +iles[$i+3] $local_files[$i+4]\n"; }
In reply to WIN32 DIRECTORY ACCESS/ READ by ozzie
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |