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

#!/usr/local/bin/perl

use Fcntl qw( :seek ) ;
my $tell = tell( \*DATA );
my $sysseek = sysseek( \*DATA, 0, SEEK_CUR ) ;

print "TELL $tell SYSSEEK $sysseek\n" ;

__DATA__
foo
bar
Commit	Line	Data
635c7876	1	#!/usr/local/bin/perl
	2
	3	use Fcntl qw( :seek ) ;
	4	my $tell = tell( \*DATA );
	5	my $sysseek = sysseek( \*DATA, 0, SEEK_CUR ) ;
	6
	7	print "TELL $tell SYSSEEK $sysseek\n" ;
	8
	9	__DATA__
	10	foo
	11	bar
	12