Skipping to file end

uvnew has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Skipping to file end by davorg (Chancellor) on Feb 13, 2007 at 11:31 UTC
johngg has answered your "meta-question" (which seems to be "how do I stop processing a file when I find what I'm looking for"), but if you really want to move the file read pointer to the beginning or end of a file then you can use the seek function. `use Fcntl qw(:seek)# load symbolic constants seek FILEHANDLE, 0, SEEK_SET; # start of file seek FILEHANDLE, 0, SEEK_END; # end of file` [download] -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply] [d/l]
Re: Skipping to file end by johngg (Canon) on Feb 13, 2007 at 11:17 UTC
It sounds like you want to stop reading the file once you have found what you are looking for. If you read the file in a `while` loop you can break out of the loop with `last`. Like this `while (my $line = <$inputFH> ) { next unless $line =~ m{some pattern}; # Process wanted line here ... last; # Break out of while loop }` [download] I hope this helps you. Cheers, JohnGG	[reply] [d/l] [select]