Seek current position : file seek « File « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » File » file seek 
Seek current position
    


open(FH, "db"or die "Can't open datebook: $!\n";
while(<FH>){
    last if /Tom/;
}
seek(FH,0,1or die;   # Seeking from the current position
$line=<FH>;            # This is where the read starts again
print "$line";
close FH;

   
    
    
    
  
Related examples in the same category
1.Seek a file
2.Seek a minus value
3.Seek and tell.
4.Seek log file
5.Using seek function from IO:File
6.The seek Function randomly accesses a file.
7.The seek Function randomly accesses a file: seek(FILEHANDLE, BYTEOFFSET, FILEPOSITION);
8.File seek operations
9.Move file pointer by using the seek function
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.