use Perl

• Very Cool (Score:2)

  by pudge (1)

  I think I might make a little cronjob to download each "day" and play it back. I think http://interglacial.com/d/clock?format=midi&daycount=1 [interglacial.com] is correct, no? Although I could just use your Perl module too ...
  • Re:Very Cool (Score:2)

    by pudge (1)

    Here's my cronjob:

    perl LongNowChimes.pm `date +%F` 1 /tmp/`date +%F`.mid; open /tmp/`date +%F`.mid

    Also, I am using MIDI patch 11 (vibraphone in QT synth) and I lowered everything on octave.
    
    Eh, hang it, it's evolved into a Perl script, as everything does.

    #!/usr/local/bin/perl
    use strict;
    use warnings;
     
    use LongNowChimes;
    use File::Spec::Functions;
    use Mac::Files;
    use Mac::Glue;
     
    my $player = new Mac::Glue 'QuickTime Player';
     
    my($y, $m, $d) = ((localtime)[5, 4, 3]);
    $y += 1900;
    $m++;
     
    my