[Summary view] [Print] [Text view]

   1  package Tie::StdHandle; 
   2  
   3  use Tie::Handle;
   4  our @ISA = 'Tie::Handle';
   5  use Carp;
   6  
   7  sub TIEHANDLE 
   8  {
   9   my $class = shift;
  10   my $fh    = \do { local *HANDLE};
  11   bless $fh,$class;
  12   $fh->OPEN(@_) if (@_);
  13   return $fh;
  14  }
  15  
  16  sub EOF     { eof($_[0]) }
  17  sub TELL    { tell($_[0]) }
  18  sub FILENO  { fileno($_[0]) }
  19  sub SEEK    { seek($_[0],$_[1],$_[2]) }
  20  sub CLOSE   { close($_[0]) }
  21  sub BINMODE { binmode($_[0]) }
  22  
  23  sub OPEN
  24  {
  25   $_[0]->CLOSE if defined($_[0]->FILENO);
  26   @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
  27  }
  28  
  29  sub READ     { read($_[0],$_[1],$_[2]) }
  30  sub READLINE { my $fh = $_[0]; <$fh> }
  31  sub GETC     { getc($_[0]) }
  32  
  33  sub WRITE
  34  {
  35   my $fh = $_[0];
  36   print $fh substr($_[1],0,$_[2])
  37  }
  38  
  39  
  40  1;