Blog

Simple mensa-kl.de parser for Perl (e.g. IRC-Bot)

#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;
sub gm($)
{
    my $date = shift;
    my $out;
    my $url = "http://mensa-kl.de/api.php?date=$date";
    my @values = split('\n', get($url));
    foreach my $val (@values)
    {
        if($val =~ /^.+\|.+\|(.+)\|(.+)\|.+\|.+\|.+\|.+\|.+$/)
        {
            $out .= $1."\t".$2."\n";
        }	   
    }
    return $out;
}
my $date = 0;
print gm($date)