On Mon, Jun 04, 2007 at 02:25:00PM +0200, Hannah Schroeter wrote:
quoted text
> Hello!
> 
> On Mon, Jun 04, 2007 at 02:01:12PM +0200, Marc Espie wrote:
> >[...]
> 
> >Don't use for loops with find results, they do not scale well.
> >Also, beware of spaces in file.
> 
> >For this kind of thing, I generally use 'while read'
> 
> >find . -type f -name \*.htm -print|while read f; do sed s/old/new <"$f" >"$f.new"; done
> 
> This isn't safe wrt newlines in file names, either.

newlines in file names are a pretty infrequent occurrence.

In case this could happen, I would do it in perl and get rid of the sed 
entirely.

#! /usr/bin/perl
use File::Find;

sub
transform
{
	my $filename = shift;
	open my $fh, '<', $filename or 
		die "Problem with $filename: $!\n";
	open my $fh2, '>', "$filename.new" or
		die "Problem with $filename.new: $!\n";
	while (<$fh>) {
		s/old/new/;
		print $fh2 $_
	}
}

find(sub {
	return unless -f $_;
	return unless m/\.htm$/;
	transform($_);
}, '.');

or something like this...