Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: How can I use $1 in an assigned string

by Wonko the sane (Deacon)
on May 28, 2003 at 16:01 UTC ( #261346=note: print w/ replies, xml ) Need Help??


in reply to How can I use $1 in an assigned string

A more robust way to do this would be something like this,
that uses a reusable generic function for the actual replacements.
Especially if your template string is going to be dynamic.

#!/usr/local/bin/perl use strict; my $filter = q{user ([^\s]+) has ([^\n\r]+)$}; my $log_string = q{user bob has logged on}; my $template = q{user $1 has accessed the system and is $2}; if ( $log_string =~ /$filter/ ) { # would be better to use something else rather # than '$1' as a replacement mark my %vars = ( '$1' => $1, '$2' => $2, ); my $t = interpolate( $template, \%vars ); print qq{LINE: [$t]\n}; } sub interpolate { my ( $text, $vars ) = @_; study $text; $text =~ s/\Q$_\E/$vars->{$_}/g for ( keys %{$vars} ); return $text; } # END interpolate
Wonko

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2016-06-29 02:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (366 votes). Check out past polls.