Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Welcome to the Monastery
 
PerlMonks  

Re: saving matching pattern with flip-flop operator

by Anonymous Monk
on Jun 23, 2011 at 10:38 UTC ( #911046=note: print w/ replies, xml ) Need Help??


in reply to saving matching pattern with flip-flop operator

but the matched sub-pattern (.+) is not stored anywhere

Yes it is

#!/usr/bin/perl -- use strict; use warnings; Main( @ARGV ); exit( 0 ); sub Main { for my $outer ( 1 .. 3 ) { printf qq[%5s %5s %5s %5s \n], qw' out inn flip $1 '; for my $inner (1..10){ my $flip = $inner =~ /2/ .. $inner =~ /(5)/ ; printf qq[%5s %5s %5s %5s \n], $outer, $inner, $flip, $1 | +|''; } print "\n"; } } __END__ out inn flip $1 1 1 1 2 1 1 3 2 1 4 3 1 5 4E0 5 1 6 5 1 7 5 1 8 5 1 9 5 1 10 5 out inn flip $1 2 1 2 2 1 2 3 2 2 4 3 2 5 4E0 5 2 6 5 2 7 5 2 8 5 2 9 5 2 10 5 out inn flip $1 3 1 3 2 1 3 3 2 3 4 3 3 5 4E0 5 3 6 5 3 7 5 3 8 5 3 9 5 3 10 5


Comment on Re: saving matching pattern with flip-flop operator
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://911046]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2014-04-17 19:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (453 votes), past polls