#!/usr/bin/perl open(FD, "log.txt") || die "can't open file"; for (;;) { for($curpos = tell(FD); $line = <FD>; $curpos = tell(FD)) { print $line; } sleep(1); seek(FD, $curpos, 0); }
Copyrights © - Joinc, All Rights Reserved. Inherited From - Yundream Rebranded By - Joonphil
#!/usr/bin/perl open(FD, "log.txt") || die "can't open file"; for (;;) { for($curpos = tell(FD); $line = <FD>; $curpos = tell(FD)) { print $line; } sleep(1); seek(FD, $curpos, 0); }Recent Posts
Archive Posts
Tags