«
»

HOW TO : Simple perl script to replace lines in file

Nothing fancy.. but here is a simple perl script to open a file, search for specific content in the a line and replace it with some other content.

open (SOURCE, "< source.xml")
or die "Could not open file source.xml: $!\n";

open (DESTINATION, ">modfile.xml")
or die "Could not open file modfile.xml: $!\n";

while (defined($line = )) {
if ($line =~ m/YYYYYYYY/i) {
$line = "XXXXXXXXXXXXXXXXXXX\n";
}
print DESTINATION "$line";
}

close (SOURCE);
close (DESTINATION);

You are opening a file named source.xml, reading every line and if there is some text that matches “YYYYYYYY”, you are replacing the whole line with “XXXXXXXXXXXXXXXXXXX”. I am sure there are more elegant ways to write this :) .. but this will do the trick too..

This entry was posted on Thursday, February 19th, 2009 at 2:11 am and is filed under HOWTO, Programming, Technology. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

One Response to “HOW TO : Simple perl script to replace lines in file”

  1. Vinay says:
    February 19, 2009 at 2:16 am

    Need to figure out a way to display the code properly!!

Leave a Reply