Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Search and add lines into a file. Getting bareword error.

by 2teez (Priest)
on Apr 19, 2013 at 08:41 UTC ( #1029483=note: print w/ replies, xml ) Need Help??


in reply to Search and add lines into a file. Getting bareword error.

Using the OP data provided, the following work for me:

use warnings; use strict; while (<DATA>) { chomp; for my $to_add (qw[_float _auxpc2]) { ( my $string = $_ ) =~ s/^(.+?)(\s+?.+?)$/$1$to_add$2/; print $string, $/; } } __DATA__ lvtnfet cmos20lpm lvtnfet_b symbol d g s b PROPMAP m=m
Output
lvtnfet_float cmos20lpm lvtnfet_b symbol d g s b PROPMA +P m=m lvtnfet_auxpc2 cmos20lpm lvtnfet_b symbol d g s b PROPM +AP m=m
UPDATE:
"..I need to search for specific string and add two lines.."
then you can do like so:
while(<DATA>){ ... if (/^lvtnfet/) { ... else { print $_, $/; } }

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me


Comment on Re: Search and add lines into a file. Getting bareword error.
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2014-09-18 08:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (109 votes), past polls