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 (ref $replace eq 'ARRAY') {
23 if (@$replace and $_ eq $replace->[0]) {
31 elsif (defined $replace and $_ eq $replace) {
42 if (defined $replace) {
43 for (ref $replace eq 'ARRAY' ? @$replace : $replace) {
51 rename $tmpname, $filename;
67 use File::Rewrite 'fileset';
68 fileset('/tmp/somefile', undef, qr/match/);
74 Mischa POSLAWSKY <perl@shiar.org>
78 Copyright. All rights reserved.