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


laziness, impatience, and hubris
	PerlMonks

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

by Wonko the sane (Deacon)

on May 28, 2003 at 15:28 UTC ( [id://261338]=note: print w/replies, xml )

Need Help??

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

There are more robust ways to do this, but this does what you want.

I changed your filter pattern a bit to make it more robust.

#!/usr/local/bin/perl
use strict; 

my $filter = q{user ([^\s]+) has ([^\n\r]+)$};

my $log_string = "user bob has logged on";
      

$log_string =~  s/$filter/user $1 has accessed the system and is $2/; 

print qq{LINE: [$log_string]\n};
[download]

Outputs

:!./t2.pl
LINE: [user bob has accessed the system and is logged on]
[download]

Wonko

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

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://261338]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others avoiding work at the Monastery: (4)

As of 2024-04-19 03:48 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found