#!/usr/bin/perl
#interprets the first parameter as a c file, and runs it

use strict;

my ($FH1, $FH2, $replace, $with, $filename, $outfile, $line, $temp);

if ( $#ARGV != 3 ) {
	print "usage: $0 <infile> <outfile> <replace> <with>\n";
	exit;
}

$filename = $ARGV[0];
$outfile = $ARGV[1];
$replace = $ARGV[2];
$with = $ARGV[3];

open(FH1, "$filename") or die "Can't open $filename for read";
open(FH2, ">$outfile") or die "Can't open $outfile for write";

while ( defined( $line = <FH1> ) ) {
	$temp=$line;
	chomp($line);
	if ("$line" eq "$replace") {
		$line = $with;
	}
	print FH2 "$line";
	if ($temp =~ /.*\n/) {
		print FH2 "\n";
	}
	
}

close(FH1);
close(FH2);