9 our @EXPORT_OK = qw(fileset);
12 my ($filename, $replace, $search) = @_;
13 $search = $replace if not defined $search;
14 my $tmpname = "$filename.$$.tmp";
17 open my $src, '<', $filename;
18 open my $dest, '>', $tmpname;
19 while (readline $src) {
21 if ($_ =~ (ref $search ? $search : qr/^\Q$search\E$/)) {
22 if (defined $replace and $_ eq $replace) {
33 if (defined $replace) {
35 print {$dest} $replace, $/;
40 rename $tmpname, $filename;
56 use File::Rewrite 'fileset';
57 fileset('/tmp/somefile', undef, qr/match/);
63 Mischa POSLAWSKY <perl@shiar.org>
67 Copyright. All rights reserved.