use strict und booleans

[Christian Kruse]

Hallo Cruz,

Aber in Perl scheint sowas nicht zu gehen. Man muss wohl
sowas wie...

if (TestMe() eq TRUE)...

schreiben.

Selbstverstaendlich nicht. Alles, was nicht 0 ist, ist ein true
value.

Zudem verbietet noch use strict die Verwendung von TRUE und FALSE
als barewords, also wird das ganze nur noch zu nem blöden
Stringvergleich mit "TRUE".

Wenn du nicht strict verwendest und testMe() eq TRUE tippst, ist es
trotzdem ein String-Vergleich.

Was ist denn der beste/eleganteste Möglichkeit in Perl Booleans
einzusetzen und irgendwas auf TRUE oder FALSE zu checken?
(natürlich unter Verwendung von strict)

0 oder 1 zurueck geben.

sub test_me {
  my $blahr = shift;
  return $blahr ? 1 : 0;
}

Alternativ: Konstanten definieren.

use constant TRUE => 1;
use constant FALSE => 0;

Grüße,
 CK