use strict und booleans

[Struppi]

In Java gibt es ja die wunderbare Möglichkeit...

Die gibt es in Perl auch, nur das es dort keinen boolsch'en Datentyp gibt.

TestMe()
{
if (rot) return false;
if (grün) return true;
}

das müßte dann lauten:
sub TestMe()
{
if (rot) return 0;
if (grün) return 1;
}

Die null kannst du auch weglassen,da

if( 0 )
if( undef )
if( '' )

zum gleichen Ergebniss führt.

pritn "misst es ist rot";

Nicht schlecht, 2 Fehler in 5 Wörtern, ich kann es selten besser ;-)

Struppi.