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

[colorwheel.livejournal.com]

Geeks.

[thenetimp.livejournal.com]

You gotta problem with it. ;-)

[colorwheel.livejournal.com]

'Course not. ;)

[thenetimp.livejournal.com]

Well that's good. For a second I thought I was going to have to flame your lj. (~_^)