update

[urisagit/Perl-Docs.git] / experiment / sysread.pl

diff --git a/experiment/sysread.pl b/experiment/sysread.pl
deleted file mode 100644 (file)
index dc40a49..0000000
--- a/experiment/sysread.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/local/bin/perl
-
-print tell(\*DATA), "\n" ;
-print sysseek(\*DATA, 0, 1), "\n" ;
-
-my $read_cnt = sysread( \*DATA, $buf, 1000 ) ;
-print "CNT $read_cnt\n[$buf]\n" ;
-
-my $read_cnt = sysread( *DATA, $buf, 1000 ) ;
-print "CNT $read_cnt\n[$buf]\n" ;
-
-open( FOO, "<&DATA" ) || die "reopen $!" ;
-
-
-my $read_cnt = sysread( \*FOO, $buf, 1000 ) ;
-print "CNT $read_cnt\n[$buf]\n" ;
-
-my $read_cnt = read( \*FOO, $buf, 1000 ) ;
-print "CNT $read_cnt\n[$buf]\n" ;
-
-@lines = <DATA> ;
-print "lines [@lines]\n" ;
-
-
-__END__
-line 1
-foo bar
-