regular expression substitution

[ianfo]

Hi,

If I have something like

$var="abcd";

How can I make a substitution to the contents of $var and display the substituted output without making any changes to the actual contents of $var.

So in the above example, I want to keep the contents of $var the same, but in a print statement, I want to display the contents of $var but substitute the letter d for something else.

I was hoping you could do something like

print(s/d/newstring/$var);

But that doesn't work.

Any help much appreciated.

 

[moof15]

Try using a /[r]/; , that might work without all the other parameters.

 

[goBoating]

I don't think the print function is going to evaluate the regex replace on-the-fly. You'll need to make at least one more step(use an intermediate var) to make the desired output happen.

Replace the d with a %.

#!perl
$var  = 'abcd';
$_ = $var;
s/d/print "$`".'%'."$'"/e;

'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[ianfo]

I was hoping there would be a 1 liner that would help to keep things tidy.

Thanks for all your help...

 

[justice41]

This borders on obfuscation rather than tidyness but here is a one-liner:

print  +( ($tmp = $var) =~ s/d/newstring/ && "$tmp\n" );

jaa