# zum Umgang mit Listen

$was_ist_das = ("a","b","c");

print "1 $was_ist_das\n";

@liste = ("a","b","c");  # alternativ: @liste = qw(a b c);

$und_das = @liste;

print "2 $und_das\n";

$und_das_jetzt = scalar(@liste);

print "3 $und_das_jetzt\n";

# es gibt auch eine vordefinierte Variable fuer den letzten Index einer Liste

print "4 $#liste\n";

# damit kann man auch die Liste kuerzen:

$#liste = 1;

print "5 @liste\n";

# aber nicht mehr verlaengern!

$#liste = 2;

print "6 @liste\n";


# loeschen der ganzen Liste

# lege vorher eine Kopie an

@liste2 = @liste;

$#liste = -1;

print "7 @liste -- @liste2\n";

# oder so:

@liste2 = ();

print "8 @liste2\n";


