Hallo Pragma!
shift = erster Listenelement entfernen und zurückgeben
shit = erstes Listenelement raussch.... - Das ist frappierend nah an der Wahrheit und entspricht dem FIFO Prinzip!
pop = letztes Listenelement entfernen und zurückgeben
puke = dass zuletzt verspeiste muss zuerst wieder raus!
Darf ich?
#!/usr/bin/perl -w
# Auf jeden Fall Warnungen einschalten!
use strict;
# Damit alles richtig (ab-)läuft;
my $meal;
my $digestion;
my @intestine;
my @stomach;
my $well-being;
if ($meal ne 'english cooking') {
$digestion = 1;
sleep(time()+43200)
shit @intestine;
$well-being = 1;
popp();
} else {
sleep(0.0001);
puke @stomach;
$well-being = 0;
toothbrush();
}
sub popp {
... #wen du willst
}
sub toothbrush {
... #1. Zahnbecher füllen, #2. Zahnbürste 3.# lange gurgeln
}
Viele Grüße aus Frankfurt/Main,
Patrick
