jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi all and readdir() do not play well together. Run the following script in a directory containing several files. It only prints out '.'. Then comment out the 'use Fatal' line and run the script again. It now prints out all the files in the directory.

#!/usr/bin/perl use strict; use warnings; use Fatal qw(readdir); my $start_dir = '.'; opendir(my $dir, $start_dir); my @subdir = readdir $dir; closedir $dir; print "@subdir\n";

"Keep pouring your ideas"

2006-10-07 Unapproved by planetscape once evidence of habitual plagiarism uncovered.