RE za behu

[Jiri Polcar]

    Zdravim,

mam promenou $re, ve ktere je ulozen regularni vyraz. Pak mam promenou
$text, kterou chci proti $re testovat:

    $re   = '/x/';

    $text = 'xyz';

    if ( $text =~ $re )            { print "MATCH\n" } else { print "NO\n" }
    if ( $text =~ /$re/ )          { print "MATCH\n" } else { print "NO\n" }
    if ( eval { $text =~ $re }  )  { print "MATCH\n" } else { print "NO\n" }
    if ( eval { $text =~ /$re/ } ) { print "MATCH\n" } else { print "NO\n" }
    if ( eval '$text =~ '.$re  )   { print "MATCH\n" } else { print "NO\n" }

Teprve posledni radek zabral. Jeste bych se smiril s tim, ze nefunguji
prvni dva radky. Proc ale nepracuji druhy dva?

--
JP