Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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


Comment on Re: How can I use $1 in an assigned string
Download Code

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 taking refuge in the Monastery: (11)
As of 2014-12-17 22:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (39 votes), past polls