X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FPerl-Docs.git;a=blobdiff_plain;f=experiment%2Fsysread.pl;fp=experiment%2Fsysread.pl;h=0000000000000000000000000000000000000000;hp=dc40a496e1aada9167b487ff67c72f769c161bb8;hb=47f1263f57592cfd836dee694c227575bc9cde46;hpb=cf83821d2b095a464d353ea98e41bfa8b262caef

diff --git a/experiment/sysread.pl b/experiment/sysread.pl
deleted file mode 100644
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
-