Zaphod for President

In me previous article i linked to another blog where some german bloke keeps all his entries in morse code.

I posted a comment there in which i wrote something in morse code and added the lines of perl code listed below.

He just emailed me that he deleted the comment for he does not have any clue about what that code does, this is just another example where the effects of german law really disappoint me.

While it does not thrill me i can understand his decision as there were some contradicting court rulings on whether the operator of a forum is legally responsible for the utterances of its users.

However, if you want to ‘read’ his blog on a debian system just do an “apt-get install bsdgames” and run the following perl scripts:

demorse.pl

#!/usr/bin/perl
use strict;
use warnings;
while (my $l=<STDIN>) {
        chomp $l;
        my @ary=split(/\|/,$l);
        foreach my $part (@ary) {
                my @res=`echo \"$part\" | /usr/games/morse -d 2>&1`;
                foreach my $val (@res) {
                        chomp $val;
                        print "$val ";
               }
        }
        print "\n";
}

enmorse.pl

#!/usr/bin/perl
use strict;
use warnings;
while (my $l=<STDIN>) {
        chomp $l;
        my @ary=split(/\s+/,$l);
        foreach my $part (@ary) {
                my @res=`echo \"$part\" | /usr/games/morse -s 2>&1`;
                foreach my $val (@res) {
                        chomp $val;
                        print "$val";
                }
                print " | ";
        }
        print "\n";
}