Solved

read a file and replace certain lines

Posted on 2002-06-13
5
116 Views
Last Modified: 2010-08-05
All,

How would I read through a file and replace lines that contain a certain word?

e.g.

The following test file is in existence

name,  age,  interests
bill,  30 ,  Football
Mark,  15 ,  Computers
Jill,  10 ,  Nothing!

If I wanted to loop through this file and replace the line containing Mark's age and interests with something else how would I go about that?

0
Comment
Question by:cyrobinson
  • 2
  • 2
5 Comments
 
LVL 51

Expert Comment

by:ahoffmann
ID: 7075402
perl -i.bak -pe 's/Mark/whatever/' file
0
 
LVL 10

Expert Comment

by:rj2
ID: 7076439
If you want to change Marks age to 35 and his interests to Women, you could try sample below.
Just paste the line into a DOS prompt. Change filename from data.txt to correct filename in your system.

perl -i.bak -pe "s/Mark,(\s*)\d*(\s*),(\s*)\w*/Mark,\1\Q35\E\2,\3Women/" data.txt

If you don't need to preserve the spaces you could try the somewhat simpler line below instead.

perl -i.bak -pe "s/Mark,.*/Mark,35,Women/" data.txt

0
 

Author Comment

by:cyrobinson
ID: 7079974
i was more wanting to loop over each line of an input file from within a perl script and modify each line like that
0
 
LVL 10

Accepted Solution

by:
rj2 earned 200 total points
ID: 7080182
The one-liner above does that.
But here it is like a regular script (not one-liner)

#!/usr/bin/perl
use strict;

my($file)="data.txt";
my($backupfile)="data.bak";

unlink($backupfile);
rename($file,$backupfile);
open(INFILE,$backupfile);
open(OUTFILE,">$file");
while(<INFILE>) {          
     s/Mark,(\s*)\d*(\s*),(\s*)\w*/Mark,\1\Q35\E\2,\3Women/;    
     print OUTFILE $_;
}
0
 
LVL 51

Expert Comment

by:ahoffmann
ID: 7080190
>  was more wanting to loop over each line of an input file from within a perl script and modify each line like that

This is exactly what my suggestion does :-)
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
rename outfile before writing 2 74
PHP equivalent of opening a com object 5 89
Regular Expression question to filter with negation. 6 100
quoting a comma separated list 20 86
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question