Seek log file : file seek « File « 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 log file

    



#!/usr/bin/perl



use strict;

use warnings;



open LOGFILE, "log.txt";



while (1) {

    print "$.: $_" while <LOGFILE>;

    sleep(1);

    seek LOGFILE, 0, 1;

}

Related examples in the same category

1.	Seek a file
2.	Seek a minus value
3.	Seek and tell.
4.	Seek current position
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

All other trademarks are property of their respective owners.