Help for this page

Select Code to Download


  1. or download this
    (@dir0) = readdir(ID) || print "Couldn't read directory contents.\n";
  2. or download this
    @dir0 = (readdir(ID) || 1); # assuming print doesn't fail
  3. or download this
    (@dir0 = readdir(ID)) || print "...";
  4. or download this
    @dir0 = readdir(ID) or print "...";
  5. or download this
    2;0 juerd@ouranos:~$ perl -MO=Deparse,-p -e'(@dir) = readdir(ID) || pr
+int "X"'
(@dir = (readdir(ID) || print('X')));
-e syntax OK