Patrick Andrieu: Würde die Routine gerne verallgemeinern

Beitrag lesen

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

--
_ - jenseits vom delirium - _

   Diblom   [link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Achtung Agentur! | Nichts ist unmöglich? Doch! | Heute schon gegökt?