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