Brauche kleine Hilfe bei Verarbeitung eines Text-Strings

[CK1]

Hi,

Seit gestern kann ich ein wenig Perl...
Darum erdreiste ich mich mal, zu antworten.

Setzen, 6 *g*

$wort="cgi AND html" (oder sowas)

if ($wort~=/ OR /) { $orgesetzt = 1; } else { $orgesetzt=0; }

#      ^                   ^                                   ^

if ($wort~=/ AND /)  { $andgesetzt = 1; } else { $andgesetzt=0; }

#      ^                     ^                                       ^

if ($orgesetzt ^ $andgesetzt)

#                      ^

{
if ($andgesetzt) { $boolean = "AND"; }

#                          ^                            ^

else {

#          ^

$boolean = "OR";
}

}

else {

#          ^

$boolean="";

}

Aber vom Prinzip her gehts... auch wenn ein wenig umständlich *g*

mfg
CK1

P.S.: nicht allzu ernst nehmen ,)