Added watchlog.pl (currently only for *nices)

README.md

@@ -73,3 +73,19 @@ one second takes, it can serve as a snippet for Perl `&stamp()`.
 Container module for some utility methods for Perl.  Probably only `dmup()` 
 is interesting—it bears a nice quick and dirty way for dumping Perl 
 data.
+
+
+##watchdump.pl##
+
+Trivial utility that prints a text file, clears the screen and pauses for 2s
+over and over.
+
+Designed mainly for use with `helper::dmup();` to enable you to see changes
+in your dumped data structure continuously, but obviously you can use it for
+any text file that will fit your screen.
+
+For improved visual feedack, it will pre-pend the file contents with the file
+path and an "animation".  Display of the header can be controlled by options,
+see `--usage`.
+
+Note: Currently works only on UNIX-like systems.

TODO.md

@@ -5,6 +5,7 @@ To-do:
         * mksheet.pl
         * htlogr: implement severities
         * htlogr: straighten up parameters
+        * watchdump.pl: make it work on Windows
 
     * document:
         * usage of mksheet.pl

bin/watchdump.pl

@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Getopt::Long;
+
+my $opts;
+$opts->{no_header}  = 0;
+$opts->{delay}      = 2;
+$opts->{frames}     = "-/|\\";
+
+GetOptions (
+    "no-header" => \$opts->{no_header},
+    "usage"     => \$opts->{usage},
+    "help"      => \$opts->{usage},
+    "delay=i"   => \$opts->{delay},
+    "frames=s"  => \$opts->{frames},
+) or &usage;
+
+&usage if $opts->{usage};
+
+sub usage {
+    print "usage: watchdump.pl --no-header --delay=SEC --frames=CHARS FILE\n";
+    exit 0;
+}
+
+my @frames      = split "", $opts->{frames};
+my $frame_num   = 0;
+
+sub get_frame {
+    my $frame = $frames[$frame_num];
+    $frame_num++;
+    $frame_num = 0 if $frame_num > $#frames;
+    return $frame;
+}
+
+my $file = shift @ARGV or &usage;
+
+while (1) {
+    system("clear");
+    printf "[%s] watching: %s\n%s\n", &get_frame(), $file, "=" x 80
+        unless $opts->{no_header};
+    print `cat $file`;
+    sleep $opts->{delay};
+}