Schreiben wir nun ein etwas praktischeres Script:

#! /usr/bin/perl -w

use strict;
use integer;
use Term::ANSIColor;

use Date::Format;
my $time = time;
if ($#ARGV >= 0) {
	$time += $ARGV[0] * 86400;
}
my $date = time2str("%d\\.%m\\.", $time);

my @pars = split(/\n\s*\n/m, `w3m -dump http://www.studentenwerk.uni-erlangen.de/verpflegung/de/sp-er-sued.shtml`);

my @result = grep { /${date}/ } @pars;

$, = "\n\n";

print @result;
print "\n";

Dieses Perl-Skript lädt mit Hilfe des Programms w3m den Mensaspeiseplan aus dem Internet und filtert mit einem regulären Ausdruck (wie grep!) den aktuellen Tag heraus.

Sinnvollerweise sollte das Script als mensa im Verzeichnis ~/bin gespeichert werden und so wie oben ausführbar gemacht werden (Rechte!). Nun kannst du jeden Tag mittels mensa den Mensa-Speiseplan anschauen.