Made watchdump.pl work on Windows (hopefully)

README.md

@@ -87,5 +87,3 @@ 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,7 +5,6 @@ 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

@@ -35,12 +35,21 @@ sub get_frame {
     return $frame;
 }
 
+sub clear {
+    system "cls"    if -d "c:\\windows";
+    system "clear"  if -f "/bin/ls";
+}
+
 my $file = shift @ARGV or &usage;
 
 while (1) {
-    system("clear");
+    &clear;
     printf "[%s] watching: %s\n%s\n", &get_frame(), $file, "=" x 80
         unless $opts->{no_header};
-    print `cat $file`;
+    if (open my $fh, "<", $file) {
+        print join "", <$fh>;
+        close $file;
+    } else { warn "cannot open $file: $!\n"; next; }
+} continue {
     sleep $opts->{delay};
 }