Help for this page

Select Code to Download


  1. or download this
    use IO::All; 
use IO::File; 
...
$h = IO::File->new_from_fd(fileno(*G{IO}), 'r'); 
$i = io($h); 
print $i->getline
  2. or download this
    Can't call method "opened" on an undefined value at C:/perl/site/lib/I
+O/All/File.pm line 78.