Help for this page

Select Code to Download


  1. or download this
    sub x{
  local(*A)=$_[0];
  if(opendir(R,"/usr")){x(*R);
  }
}
  2. or download this
    sub x{
  local(*A)=$_[0];
  if (opendir(R,"/usr")){while(<R>){print;}
  }
}
  3. or download this
    [s0ttle@ween]%perl subtest
Read on closed filehandle <C> at a line 23.
[s0ttle@ween]%fuq
fuq: Command not found.
[s0ttle@ween]%