advent-2000.de - 13. Januar 2000


Donnerstag, 13. Januar 2000	Heute ist der 13. Tag des Jahres, es folgen noch 353
Der 13. Januar hat folgende historische Bedeutung:
Am 13. Januar 1898 wurde auf der Titelseite der französischen Tageszeitung L' Aurore ein offener Brief an den damaligen Staatspräsidenten Félix Faure veröffentlicht. In dem Artikel mit dem provokativen Titel J' Accuse (Ich klage an...) wurden die Machenschaften der französischen Armeeführung und der französischen Justiz im Fall Dreyfus angezeigt. Alfred Dreyfus, aus einer jüdischen Familie stammend, war zu Unrecht der Militärspionage beschuldigt und zur Verbannung auf Lebenszeit auf der Teufelsinsel (frz. Guyana) verurteilt worden. Der Autor von "J' Accuse", einem Plädoyer gegen den Antisemitismus, wurde wegen Verleumdung zu Geld- und Gefängnisstrafen verurteilt - es ist der schon damals populäre Schriftsteller Émile Zola.

Programmierer sind Genies, verstehen sie es doch, den Computer dazu zu bewegen, ihre Befehle anstandslos auszuführen. Hierfür verbringen Programmierer ihre gesamte Zeit vor dem Rechner, vergessen die Uhrzeit, vergessen das Mittag- und das Abendessen. Und wenn sich der Hunger lautstark meldet, muss McDoof oder der Pizzadienst um die Ecke herhalten.

Um speziell den Perl-Programmierern einen etwas abwechslungsreicheren Speiseplan zu bescheren, veröffentlicht advent-2000.de heute ein CGI-Skript (CGI: Cooking Genius Interface), das in der mit Perl verwandten Skriptsprache Kochperl 1.0 von Kochperl-Programmierer Andreas Bierhals geschrieben und von Kochperl-Experte Calocybe auf Richtigkeit überprüft wurde.

advent-2000.de wünscht allen Programmierern einen Guten Appetit!


#!/usr/bin/kochperl -w

%Zutaten = ();
$Zutaten{"Tortellini"} = "250 g Packung";
$Zutaten{"Zwiebel"}=1;
$Zutaten{"Schinken"} = "200 g";
$Zutaten{"Knoblauch"} = 1;
$Zutaten{"Sahne"} = "1 Pott";

if ($Abendprogramm{"Konzert"} || $Abendprogramm{"Kino"})  {
  ++$Zutaten{"Knoblauch"};  # Für mehr Platz in den Sitzreihen
} elsif ($Abendprogramm{"Rendez-vous"}) {
  --$Zutaten{"Knoblauch"};  # Is besser...
}

open(KAESE, ") && (length($Zutaten{"Kaese"}) < 100) {
  $Zutaten{"Kaese"} .= $_;
}
close(KAESE); # Wegen Geruch wieder zumachen

$Zutaten{"Gemuesezwiebel"} =~ s/"Schale"//eg;  # Das hier und das
$Zutaten{"Knoblauch"}      =~ s/"Schale"//eg;  # folgende muß schon sein
$Zutaten{"Schinken"}       =~ s/"Plastikhülle"//eg; # Wohl die billig-Variante, wie??

@Schinken_Streifen = split(//, $Zutaten{"Schinken"}, 10);
for (@Schinken_Streifen) {
  push @Schinken_Wuerfel, [ split(//, $_, 10) ];
}

&zerhacke($Zutaten{"Zwiebel"});   # Erzeugt das globale Array @Zwiebeln,
&zerhacke($Zutaten{"Knoblauch"}); # Der zerhackte Knoblauch wird
                                  # an @Zwiebeln mit angehängt, was
                                  # natürlich unsauber programmiert ist.

if (!$Haushalt{"Speiseoel"}) {
  print "Kein Oel im Haus --> Abbruch\n";
  exit();
}

&Wasser_kochen;
push @Topf, $Haushalt{"Nudeln"};  # Hier fehlt noch die Abfrage, ob
                                  # Nudeln im Haus, Anm. d. Programmierers.

push @Pfanne, $Haushalt{"Speiseoel"};
&Pfanne_heizen(@Pfanne);

# Jetzt geht es endlich los

push @Pfanne, @Zwiebeln;    # Zur Erinnerung: Zwiebeln UND Knoblauch!
for (@Schinken_Wuerfel) {
  push @Pfanne, @$_;        # Normalerweise braucht man die Schinken-
                            # wuerfel dann nicht streifenweise einzufüllen...
}

push @Pfanne, $Haushalt{"Pfeffer"};  # Diese Zutaten hatte ich oben auch vergessen
push @Pfanne, $Haushalt{"Oregano"};  # Is halt noch beta-Version!

&scramble(@Pfanne);   # Das Modul mit &scramble muß vorher aus dem CPAN
                      # Archiv downgeloadet werden.

push @Pfanne, $Zutaten{"Kaese"};
push @Pfanne, $Zutaten{"Sahne"};

# Die Ausgabe in ein Fenster ersparen wir uns, da die meisten
# nicht im Erdgeschoß wohnen.

print "Herzlichen Glückwunsch zur Schinken-Gorgonzola-Sahne Sauce";

Dazu können Sie noch die Variable $weisswein hinzufügen. Und wenn if ($weisswein eq 'trocken'), ist der Genuss perfekt!

Dieses Kochperl-Skript wurde ausschließlich für Programmierer geschrieben. Wenn Sie nicht zu dieser Spezies gehören und Ihnen die Zutaten dennoch den Mund wässrig gemacht haben, klicken Sie bitte hier.

Kennen Sie auch ein Kochperl-Rezept? Ja? Dann schicken Sie es advent-2000.de! Die besten Rezepte werden an verschiedenen Tagen des Kalenders veröffentlicht! Vielleicht kommen auf diese Weise auch genug Kochanleitungen zusammen, um daraus ein Perl-Kochbuch herauszugeben!