title image


Smiley Wie wäre es damit?
my @liste = qw(a b c d e f g h i j);while (1){ my $dieses = shift @liste; print $dieses; if(my $naechstes = ){ print " Danach kommt noch $naechstes\n"; } else { print " Danach kommt nichts mehr\n"; last; }}



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: