Problem mit if-Anweisung und allgemeine Fragen zu Perl - #129757 (Allgemeines zu Perl)

havi

2009-12-29 11:01

User since
2003-08-04
2036 Artikel
BenutzerIn

Warnungen aktivieren - hätte dich gewarnt, weil du einen numerischen Vergleich machst...
strict: Variablen mit my deklarieren

Code (perl): (dl )

1
2

use warnings;
use strict;

Numerischer Vergleich:

Code (perl): (dl )

my $Titelselect = 0;
my $Select1;

if ($Titelselect == 0) {
   $Select1 = "titel!=''";
}
else {
   $Select1 = "titel='$Titelselect'";
}
print $Select1;

Gegensatz:

Code (perl): (dl )

my $Titelselect = "Test";
my $Select1;

if ($Titelselect eq "") {
   $Select1 = "titel!=''";
}
else {
   $Select1 = "titel='$Titelselect'";
}
print $Select1;

Subroutine -> Parameter übergeben -> ein Beispiel

Code (perl): (dl )

sub ersteRoutine {
        my $string = "Test";
        zweiteRoutine($string);
} # ersteRoutine

sub zweiteRoutine {
        my ($wert) = @_;
        print $wert;
} # zweiteRoutine

Vielleicht ist die Perl-Zeitung etwas für dich...

Gruss,
Gernot

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/