Help for this page

Select Code to Download


  1. or download this
      DB<111> $path='/tmp/path'
 => "/tmp/path"
...

  DB<115> `cat $path`
 => "This is File /tmp/path"
  2. or download this
      DB<127> open $handle{$path},"<",$path;
 => 1
...

  DB<132> readline($handle{$path})
 => "This is File /tmp/path"
  3. or download this
      DB<151> while ( my ($path,$handle) = each %handle ) {
           print <$handle>;
           }

This is File /tmp/path
  4. or download this
      DB<159> ;{ 
           use strict;
...
           }
           }
This is File /tmp/path