Ausgabe Variable

Computer: Software & Programmierung Perl & CGI
#1

Hallo Experten,
an dem folgendem (simplen) Beispiel will ich meine Frage erläutern:

#!/usr/bin/perl
# springer\_uebung\_68\_www.pl
#use warnings;
#use strict;

print "Z1 : ";
$Z1 = ;
chomp $Z1;

print "Z2 : ";
$Z2 = ;
chomp $Z2;

if ($Z1 \> $Z2)
{
 $groesster\_wert = Z1;
}
else
{
 $groesster\_wert = Z2;
}

print "$groesster\_wert ist der groesste Wert!";

Ich hätte gerne statt der derzeitigen Ausgabe (Variablenname, z.B. „Z2 ist der groesste Wert!“) auch eine Ausgabe des dazugehörigen Wertes.

Natürlich kann ich den Quelltext so erweitern:

[...]

{
 $groesster\_wert = Z1;
 $groesster\_wert\_wert = $Z1;
}

[...]

print "$groesster\_wert(= $groesster\_wert\_wert) ist der groesste Wert!";

[...]

Gibt es vielleicht einen eleganteren Weg (ohne zusätzliche Variable)?

Vielen Dank für jede Hilfe.

Gruß der Janus

#2

Moin!

#!/usr/bin/perl
# springer\_uebung\_68\_www.pl
#use warnings;
#use strict;

print "Z1 : ";
$Z1 = ;
chomp $Z1;

print "Z2 : ";
$Z2 = ;
chomp $Z2;

if ($Z1 \> $Z2)
{
 $groesster\_wert = Z1;
}
else
{
 $groesster\_wert = Z2;
}

print "$groesster\_wert $$groesster\_wert ist der groesste Wert!";

Gruß Christian