Der Thunfischwitz-Fred - Druckversion

+- MINI² - Die ComMINIty (https://www.mini2.info)
+-- Forum: MINI² meet (https://www.mini2.info/forumdisplay.php?fid=8)
+--- Forum: MINI² chapter (https://www.mini2.info/forumdisplay.php?fid=9)
+---- Forum: Chapter Bayern/Franken (https://www.mini2.info/forumdisplay.php?fid=133)
+----- Forum: Chapter Bayern/Franken-Archiv (https://www.mini2.info/forumdisplay.php?fid=116)
+----- Thema: Der Thunfischwitz-Fred (/showthread.php?tid=15684)

---

Der Thunfischwitz-Fred - Schaf - 14.07.2006

Miniholic schrieb: schade an dem Sa feiert mein größter bester ältester liebster Kumpel Geburtstag... da kann ich hier net weg

na ja, irgendwann bekommst du den witz shcon erzählt... oder doch die Videokamera

---

Der Thunfischwitz-Fred - Flyingmatt - 14.07.2006

Miniholic schrieb: schade an dem Sa feiert mein größter bester ältester liebster Kumpel Geburtstag... da kann ich hier net weg

Alternative

---

Der Thunfischwitz-Fred - Schaf - 17.07.2006

Ich will nicht dass dieser Fred verschwindet ->

einem Karlsruher Kollegen schrieb:Warum haisd de Thunfisch Thunfisch?

Mir sin dief dronne im Meer. Do schwimmd de Wal logga vor sich no ... un wie dea vor sich noschwimmd - blubbeldiblubb - do kommt uff oimol en Thunfisch un biegld den Wal von hinne richdig dorch.
do sagd de Wal: "HEAR des ko'sch doch net tun, Fisch!"
un de Thunfisch moind: " Du hasch ga koi annare Wal, Fisch!"

---

Der Thunfischwitz-Fred - Miniholic - 17.07.2006

Flyingmatt schrieb:Alternative

der ist auch schon verplant ... aber es findet sich sicherleich noch ein Termin

---

Der Thunfischwitz-Fred - Schaf - 17.07.2006

Nun noch Perl:

dem gleichen Arbeitskollegen schrieb:#!/usr/bin/perl -w

print "Geben Sie das gewünschte Tier ein! /n";
chomp ($tier = <STDIN>);

while ($tier = 'Thunfisch'){
$opfer = 'der Wal';
$tätigkeit = 'schwimmt';
$ort = 'tief im Meer';
$ziel = 'durch die Gegend';
$tätigkeit_2 = 'poppt';
$thun = (substr($tier, 0, 3));
$fisch = (substr($tier, 4));
$wal = (substr($opfer, 4));

print "Wir befinden uns $ort. Munter $tätigkeit $opfer $ziel. /n";
print "Ploetzlich kommt ein $tier und $tätigkeit_2 $opfer von hinten! /n";
print "Meint $opfer:/"Das darfst du nicht $thun, $fisch!/" /n";
print "Sagt der $tier:/"Du hast keine $wal, $fisch!/" /n";

print "Nochmal? (j/n) /n";
chomp ($eingabe = <STDIN>);

if ($eingabe eq 'j'){
next;
}
else{
exit;
}
}

---