Mailinglist Archive: opensuse-programming-de (148 mails)

[Dennis Stosberg <lists@xxxxxxxxxxxx>]

Am Sonntag, 16. Januar 2005 14:22 schrieb Daniel Feist:

> %ganzer_name = ("Fred" => "Feuerstein",
>                 "Barney" => "Geroellheimer",
>                 );

# Schreibe die Schlüssel in ein Array
my @vornamen = keys %ganzer_name;

# Schreibe den Index des letzten Elements in einen Skalar
my $last_element = $#vornamen;

# Oder: Schreibe die Anzahl der Elemente in einen Skalar
my $num_elements = @vornamen;

# Jetzt kannst du den Zufallsgenerator einsetzen
my $vorname = $vornamen[rand($num_elements)];
my $nachname = $ganzer_name{$vorname};

Lies dir mal die Manual-Page perlintro durch.  Dort werden die 
die Grundlagen der Perl-Syntax kurz und knapp erklärt.

Anschließend bietet sich das "perlreftut" an. Es erklärt den 
grundlegenden Umgang mit Referenzen.

Gruß,
Dennis

-- 
Send personal mail to dennis@... only. Mails going to 
lists@xxxxxxxxxxxx will not reach me unless they are
sent over the list.