Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: Store regular expressions in a file.

by eff_i_g (Curate)
on Nov 11, 2010 at 15:48 UTC ( #870882=note: print w/ replies, xml ) Need Help??


in reply to Re: Store regular expressions in a file.
in thread Store regular expressions in a file.

#!/usr/local/bin/perl use strict; use warnings; use String::Interpolate qw(safe_interpolate); # Read the regexes my @Rexes; while (my $t = <DATA>) { chomp $t; last if $t =~ /^$/; my ($regex, $repl) = split /\t+/, $t; push @Rexes, [ qr($regex), $repl ]; } # Process the text while (my $l = <DATA>) { $l=~ s/$$_[0]/safe_interpolate($$_[1])/eg for @Rexes; print $l, "\n"; } __DATA__ duck cluck a(b+)c \uc${1}\ua That bird says "duck!" xyzzy plugh ac abc abbc abbbc
That bird says "cluck!" xyzzy plugh ac CbA CbbA CbbbA


Comment on Re^2: Store regular expressions in a file.
Select or Download Code
Re^3: Store regular expressions in a file.
by yoda54 (Monk) on Nov 11, 2010 at 18:34 UTC
    Thanks everyone for the enlightenment!!
Re^3: Store regular expressions in a file.
by roboticus (Chancellor) on Nov 12, 2010 at 00:24 UTC

    ++eff_i_g:

    Sweet! I played with it for a while before giving up on the capture groups. I'll have to be sure to keep this handy!

    ...roboticus

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2015-07-04 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls