Das ganze ist eine Übungsaufgabe aus einem Perl Lehrbuch.
Es soll bei jedem Aufruf der Funktion der Name der Übergeben wurde ausgegeben werden + alle Name die bereits in den vorherigen Aufrufen übergeben worden sind. Also beim dritten Aufruf z.B.:

Quote

Hallo BamBam! Die folgenden Personen waren vor dir hier: Fred Barney/quote]

Das ist der gesamt Code

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

sub begruessen{
     state $person_number = 0;
     state @names;
     state @buffer_names;
        
    foreach my $val(@_){
       push(@names, $val);
       push(@buffer_names, $val);
    }
    if($person_number== 0){     
       print "Hallo $names[$person_number]! Du bist der erste hier!";
    }else{
       pop(@buffer_names);
       print "Hallo $names[$person_number]! Die folgenden Personen waren vor  dir hier: ";
       foreach my $val(@buffer_names){
         print "$val ";
     }
   }
   print "\n";
   $person_number++;
}

Last edited: 2016-05-19 20:52:24 +0200 (CEST)