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

[rikchik.livejournal.com]

Annoyingly, binary.perl 1 0 doesn't work, since 0 is not true.
How about $o ||= ' ' unless $o eq '0'; ?

[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?

[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. (~_^)

[aspartaimee.livejournal.com]

um. yeah. i am wearing new socks today.

[cnoocy]

I like new socks, too. My mom once brought me some socks from France.

[cnoocy]

I don't think I have both of them anymore.

[thenetimp.livejournal.com]

are they orange?

[aspartaimee.livejournal.com]

wouldn't that be awesome!?

but no. they are green. i do have some red mary jane's, though.