Commit | Line | Data |
635c7876 |
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 | |