SPUG: FILEHANDLE - What am I missing here.

[Sean Dwyer]

All, 
 
    I am trying to use a file handle across several subroutines. In the
code below (which is just a concept test sequence) as it stands when it
hits "sometext" in sub1 I get no more lines printed. If I comment out
sub1 then I dutifully get the first 200 lines of the file, 100 each from
sub2 and sub3. What am I missing here. Why does <FILE> seem to close (or
go out of scope) after sub1. And is there a way to do what I am trying
to do? 
 
thanks for any help-
 
Sean 
 
 
#!/usr/bin/perl
 
use strict;
 
my ($i, $j);
 
open FILE, "<somefile.txt";
sub getline{<FILE>;}
 
&sub1;
&sub2;
&sub3;
 
sub sub1{
  foreach(&getline){
    print;
    print "SUB3";
    return if(/sometext/);
  }
}
 
sub sub2{
  for($i = 1; $i < 100; $i++){
    my $test = &getline;
    print $test;
    } 
}
 
sub sub3{
  for($j = 1; $j < 100; $j++){
    my $test = &getline;
    print $test;
    }
} 
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/archives/spug-list/attachments/20030102/c05e89f3/attachment.htm