RE za behu

[Jiri Polcar]

On Sat, Aug 30, 2003 at 03:46:09PM +0200, Honza Pazdziora wrote:
> 
> 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
> 

U me se to MATCHne i kdyz nema...

polcar na mon:~/work/perl$perl -w
my $re   = '/NECOCOSENEMATCHNE/';
my $text = 'xyz';
if ( eval { '$text =~ '.$re } ) { print "MATCH\n" } else { print "NO\n"}
print "$]\n";
__END__
MATCH
5.006001


--
JP