RE za behu

[Honza Pazdziora]

On Sat, Aug 30, 2003 at 03:38:10PM +0200, Jiri Polcar wrote:
> Jeste: proc nepracuje 
> 
>     if ( eval { '$text =~ '.$re } ) { print "MATCH\n" } else { print "NO\n" }
> 
> ?

Pracuje:

$ perl -w
use strict;
my $re   = '/x/';
my $text = 'xyz';
if ( eval { '$text =~ '.$re } ) { print "MATCH\n" } else { print "NO\n" }   
print "$]\n";
__END__
MATCH
5.008001

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
		Only self-confident people can be simple.