Perl‎ > ‎

if-Anweisung (Perl)


Beispiel #1 - numerische Gleichheit

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (1 == 2) {
print "1 ist 2";
} else {
print "1 ist nicht 2";
}

Beispiel #2 - numerische Ungleichheit

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (1 != 2) {
print "1 ist nicht 2";
} else {
print "1 ist 2";
}

Beispiel #3 - Gleichheit von Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('Hallo' eq 'Welt') {
print 'Hallo ist Welt';
} else {
print "Hallo ist nicht Welt";
}

Beispiel #4 - Ungleichheit von Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('Hallo' ne 'Welt') {
print 'Hallo ist nicht Welt';
} else {
print "Hallo ist Welt";
}

Beispiel #5 - numerisch kleiner als

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (1 < 2) {
print '1 ist kleiner als 2';
} else {
print "1 ist nicht kleiner als 2";
}

Beispiel #6 - numerisch größer als

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (2 > 1) {
print '2 ist groesser als 1';
} else {
print '2 ist nicht groesser als 1';
}

Beispiel #7 - kleiner als bei Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('a' lt 'b') {
print 'a ist kleiner als b';
} else {
print 'a ist nicht kleiner als b';
}

Beispiel #8 - größer als bei Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('b' gt 'a') {
print 'b ist groesser als a';
} else {
print 'b ist nicht groesser als a';
}

Beispiel #9 - numerisch kleiner/gleich

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (1 <= 1) {
print '1 ist kleiner/gleich 1';
} else {
print '1 ist nicht kleiner/gleich 1';
}

Beispiel #10 - numerisch größer/gleich

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if (2 >= 1) {
print '2 ist groesser/gleich 1';
} else {
print '2 ist nicht groesser/gleich 1';
}

Beispiel #11 - kleiner/gleich bei Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('a' le 'b') {
print 'a ist kleiner/gleich b';
} else {
print 'a ist nicht kleiner/gleich b';
}

Beispiel #12 - größer/gleich bei Zeichenketten

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

if ('b' ge 'a') {
print 'b ist groesser/gleich a';
} else {
print 'b ist nicht groesser/gleich a';
}

Weitere logische Operatoren

  • and
  • or
  • not