6 #####################################################################
7 # write a string into a file
10 my($filename) = shift;
13 open(FILE, ">$filename") || die "can't open $filename";
18 while (my $fname = shift) {
19 my $src = `cat $fname`;
22 while ((my $idx = index($src, $sub_src)) != -1) {
23 substr $src, $idx, length($sub_src), $sub_dst;
27 print "Replacing $sub_src with $sub_dst in $fname\n";
28 FileSave($fname, $src);