RE za behu

[Honza Pazdziora]

On Sat, Aug 30, 2003 at 03:51:33PM +0200, Jiri Polcar 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

Jo aha, prehlidl jsem se. Samozrejme tam nema byt

	eval { 'retezec' }
ale
	eval 'retezec'

protoze jinak testujete, jestli je ten retezec pravdivy (nenulovy), coz
je.

-- 
------------------------------------------------------------------------
 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.