9 our @EXPORT_OK = qw(fileset);
12 my ($filename, $replace, $search) = @_;
13 die if defined $replace;
14 my $tmpname = "$filename.$$.tmp";
17 open my $src, '<', $filename;
18 open my $dest, '>', $tmpname;
19 while (readline $src) {
20 if ($_ =~ (ref $search ? $search : qr/^\Q$search\E$/)) {
30 rename $tmpname, $filename;
46 use File::Rewrite 'fileset';
47 fileset('/tmp/somefile', undef, qr/match/);
53 Mischa POSLAWSKY <perl@shiar.org>
57 Copyright. All rights reserved.