experiment/sysread.pl

   1 #!/usr/local/bin/perl
   2
   3 print tell(\*DATA), "\n" ;
   4 print sysseek(\*DATA, 0, 1), "\n" ;
   5
   6 my $read_cnt = sysread( \*DATA, $buf, 1000 ) ;
   7 print "CNT $read_cnt\n[$buf]\n" ;
   8
   9 my $read_cnt = sysread( *DATA, $buf, 1000 ) ;
  10 print "CNT $read_cnt\n[$buf]\n" ;
  11
  12 open( FOO, "<&DATA" ) || die "reopen $!" ;
  13
  14
  15 my $read_cnt = sysread( \*FOO, $buf, 1000 ) ;
  16 print "CNT $read_cnt\n[$buf]\n" ;
  17
  18 my $read_cnt = read( \*FOO, $buf, 1000 ) ;
  19 print "CNT $read_cnt\n[$buf]\n" ;
  20
  21 @lines = <DATA> ;
  22 print "lines [@lines]\n" ;
  23
  24
  25 __END__
  26 line 1
  27 foo bar
  28