Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.

Re^3: find & replace a string in perl

by mertserger (Curate)
on Nov 25, 2010 at 10:10 UTC ( [id://873611]=note: print w/replies, xml ) Need Help??

in reply to Re^2: find & replace a string in perl
in thread find & replace a string in perl

The code:
if( $line =~ s/\btest\b/^\#/ig ) { print "$line\n"; }
is definately wrong as Corion has been saying.
The bit in brackets after the "if" should be a test with a Boolean answer, whereas you've got a substitute command instead. Also if the substitution ever worked you would not be adding a hash in front of the line but replacing "test" with "^#" so your example line "see/for/test " would become "see/for/^#". You want something like:
if( $line =~ m/test/ ) { $line = "#" . $line; print "$line\n"; }

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2024-04-19 08:59 GMT
Find Nodes?
    Voting Booth?

    No recent polls found