Script to watch the approach of the binary gigasecond

[cnoocy]

#!/usr/bin/perl

use strict;

my $x = shift;
my $o = shift;
$o ||= ' ';
$x ||= '*';

while (1){
select (undef, undef, undef, 0.5);
my $t = `date +%s`;
my $s = sprintf "%b\n", $t;
$s =~ s/1/$x/g;
$s =~ s/0/$o/g;
print $s;
}


Run on a unix machine, pick one-character arguments if desired, pipe through uniq.
ETA: 08:37:04 on Saturday morning, Eastern Time.

Comments

[cnoocy]

Or, you know, make '1' and '0' the defaults. I'm not picky. I'll even place the code in the public domain. There. How's that?