Probleme beim Überprüfen einer Grafik

[Matti Maekitalo]

use Mosche;

my ($x, $y) = imgsize('Party.jpg');

($x || $y) eq undef ? print "Undefiniert" : print "$x x $y\n";
[...oder...]
($x || $y) eq '' ? print "Undefiniert" : print "$x x $y\n";

Finde beides eigentlich unschön.
Folgendes passiert:
($x || $y) liefert true zurück, wenn mindestens eins von $x oder $y ein wahrer Ausdruck ist. Du willst also sowieso ($x && $y) benutzen (davon ausgehend, dass 0-Pixel breite/hohe Bilder Nonsens sind).

Weiterhin habe ich eben schon gesagt, dass der Ausdruck sowieso einen Wahrheitswert (also 0 oder 1) zurückliefert. Schreibe einfach nur

($x && $y) ? print ...
oder prüfe auf (numerische) Gleichheit mit 1 bzw. 0 (ist aber eigentlich unnötig).

use Tschoe qw(Matti);