$path = "C:\\A"; my $file; opendir (DIR, "c:\\A") || die "Cannot open file directory: $!"; while (defined ($file = readdir(DIR) )) { next if $file =~ /^\.\.?$/; #This ignores the parent directory that +readdir returns open (FILE, "$path\\$file") || die "Cannot open file: $!"; close FILE; }
In reply to Re: HELP!!!! VB code to PERL?
by elbow
in thread HELP!!!! VB code to PERL?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |