Next Trivial Utilities 40

ftail

          my ($dev, $ino) = stat $file;
          if (defined $dev && "$dev,$ino" ne $devino) {
            while (read F, my($buf), 8192) {
              print $buf;
            }
            open F, "<", $file or die "Couldn't open file $file: $!; aborting";
            $devino = "$dev,$ino";
            seek F, 0, 2 if $END;
            $END=0;
          }


Next Menu Copyright © 2012 M. J. Dominus