nicht angemeldet
Hallo,
Ja, sorry, natürlich Perl :o)
Perl nur auf CGI-Anwendungen zu reduzieren, ist IMHO äußerst verwerflich;-)
Die Variable hat genau diesen Wert.
Was Perl betrifft, habe ich nicht sehr viel Verständnis.
Wäre also auf freundliche Unterstützung im Forum angewiesen.
Wenn ich mich erst durch die Lektüre ackern muß, wirds nix :o(
Dannsollten wir uns einmal daran machen, Dir mehr Verständnis beizubringen. Einach einen Code-Fetzen hinzuwerfen bringt DIr auch nicht viel, wenn Du ihn nicht verstehst.
Und die Lektüre wird Dir auf Dauer auch nicht erspart bleiben, wenn Du Perl auch weiterhin einsetzen willst. (Daher auch die im Vorposting nenannten Dokumente.)
Aber was sollst, hier ein Crash-Kurs bezüglich deines Problems:
(erwarte Dir aber nicht einen fertigen Code)
Wenn nur unter bestimmten Bedingungen etwas passieren soll, dann benutze bitte fürs erste if, elsif und else:
if($wert == 123) # prüfe auf numerische Gleichheit
{
$wert2 = 9876;
}
elsif($wert eq 'abcdef') #prüfe auf Sting-Gleichheit
{
$wert2 = 8326632;
}
else # was soll passieren, wenn obige Bedingungen nicht erfüllt sind
{
$wert = -1;
}
Diese Anweisungssequenz bewirklt, daß genau einer der Blöcke (das ist das in den geschwungenen Klammern) ausgeführt wird.
Es gibt eine Vielzahl von Vergleichsoperatoren, wobei es jeweils einen Satz für Numerische Vergleiche (==,!=,>,<,>=,<=) gibt und einen für Stringvergleiche (eq,ne,lt,gt,le,ge) gibt.
ALternativ könntest Du auch ein Hash mit den Vorgabewerten füllen:
my %wasauchimmer = ('bedingung1',123,'bedingung2',345,'bedingung3',665);
my $wert2 = $wasauchimmer{$wert1};
$wert2 = -1 unless defined $wert2; # die Anweisung ist nur niotwendig um einen Wert zu definieren, falls keine der Bedingungen im Hash vorhanden waren
Grüße
Klaus
Und weils so wichtig ist:
Litraturhinweise: [1]
perldoc perlop (Vergleiche bzw. Regex-Operatoren)
perldoc perlre (Aufbau von regulären Ausdrücken (regex))
perldoc perlsyn (Vor allem der Abschnitt mit Switchstatements)
perldoc -f print (Funtionsweise von print)
[1] Auch zu finden unter http://www.perldoc.com