Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Passing filehandle to sub

by fsn (Friar)
on Jun 09, 2003 at 11:31 UTC ( #264296=note: print w/replies, xml ) Need Help??


in reply to Passing filehandle to sub

I don't understand what you mean with that last sentence, do you really want to continue from the exact line the sub finished at? That menas you will have to read that line twice, once in the sub and once i the main routine, by pushing the line back into the buffer, or pass back that line to the main function using return values. Try to avoid that. I usually read a file in only one place and use some sort of state machine to control what I want to do with what I read.

Anyway, if this is just a question regarding filhandle referencies, see the perlref and perlreftut. Also, I made a small example on filehandle referencing:

#!/usr/bin/perl -w open SESAME, "testfil"; while (<SESAME>) { chomp; print "main: $_ "; if ($_ =~ /baz/) { print "go! \n"; &aSub(*SESAME) } print "\n"; } sub aSub { my $inFile = shift; while (<$inFile>) { chomp; print "sub: $_"; if ($_ =~ /bao/ ) { print " return!"; return }; print "\n"; } }
the testfile is simple:
foo bar baz bam bao fee fie

Replies are listed 'Best First'.
Re: Re: Passing filehandle to sub
by marctwo (Acolyte) on Jun 09, 2003 at 13:23 UTC
    fsn - you are correct, I meant to resume in the main at the next line and not the same line. Using broquaint's suggestion above seems to achieve this without the need for using any special commands like seek.

    Many thanks for your help.

    Marc

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://264296]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2022-12-06 20:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?