Was kann ich mit wantarray machen?

#!/usr/bin/perl

use strict;
use warnings;

# im list-Kontext
my @array = test();
print "@array\n";

# im skalaren kontext
my $test = test();
print $test,"\n";

# im void-Kontext
test();


##
# die sub
##
sub test{
   if(wantarray){
       print "im list-Kontext\n";
    return qw(1 2 3 4);
   }
   elsif(defined wantarray){
       print "im Skalar-Kontext\n";
    return "Hallo Welt";
   }
   elsif(! defined wantarray){
       print "im void-Kontext\n";
   }
   else{
       print "dieser Fall sollte eigentlich nie eintreten\n";
   }
}

~/entwicklung 264> perl wantarr.pl
im list-Kontext
1 2 3 4
im Skalar-Kontext
Hallo Welt
im void-Kontext

Ergänzungen, Kommentare

---+++ Main.??? - 14 Jul 2003 - Betreff