Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Regex - remove characters (pattern not terminated) perl6

by eric256 (Parson)
on Jun 30, 2010 at 13:56 UTC ( [id://847340] : note . print w/replies, xml ) Need Help??


in reply to Regex - remove characters (pattern not terminated)

Just playing around with Perl6 some

#!/home/ejh/rakudo/perl6 my @temp = ("1234567", "7654321"); my $pat = "123"; my $rpat = "321"; for @temp -> $test { print "Testing '$test' - "; my $t = $test; if $t ~~ s/$pat// or $t ~~ /$rpat/ { say "($t) matched"; } }

___________
Eric Hodges