Help for this page

Select Code to Download


  1. or download this
    $ perl -e 'opendir DIR, "foo" or die "$!"; @c=readdir DIR; print "@c\n
+"; closedir DIR; @c=readdir DIR or die "$!"'
. ..
Bad file descriptor at -e line 1.
  2. or download this
      DB<8> @c = readdir DIR or die "$!"
Illegal seek at (eval 12)[/usr/lib/perl5/5.10/perl5db.pl:638] line 2.