<div class="gmail_quote">On Thu, Jul 7, 2011 at 9:10 PM, Ed Hurst <span dir="ltr"><<a href="mailto:ehurst@soulkiln.org">ehurst@soulkiln.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
I assume sed is not necessarily the proper tool for this task, or<br>
perhaps not the whole task. After re-reading the most recent discussion<br>
on sed, I was hoping to accomplish something a bit more complicated for<br>
a similar context.<br></blockquote></div><div><br></div><div>You could try this little Perl script:</div><div><br></div><div><div><font class="Apple-style-span" face="'courier new', monospace">foreach my $file (@ARGV) {</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>open my $in, "<$file";</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">    </span>my @slurp = <$in>;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>close $in;</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>my $all = join( "\n", @slurp );</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>$all =~ s/softedges\s*at\s*softhome\s*dot\s*net/eddie at soulkiln dot org/m;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>open my $out, ">$file.new";</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">       </span>print $out $all;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><span class="Apple-tab-span" style="white-space:pre">     </span>close $out;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">}</font></div>
</div><br>-- <br>Robert Wohlfarth<br><br>