File Perl

  1. Home
  2. Perl
  3. File
  4. Seek log file
#!/usr/bin/perl
use strict;
use warnings;
open LOGFILE, "log.txt";
while (1) {
    print "$.: $_" while ;
    sleep(1);
    seek LOGFILE, 0, 1;
}