Find and replace in multiple files with Raku

rename-things.raku

#!/usr/bin/rakudo

# vim: ft=perl6

use File::Temp;

my $here = $*PROGRAM.parent;

sub process-py-file($f) {
  say $f;
  
  my ($temp, $temp-fh) = tempfile;
  
  for $f.lines -> $line {
    my $fixed_line = S/foo/bar/ with $line;
    $temp-fh.print: $fixed_line;
    $temp-fh.print: "\n";
  }
  $temp-fh.close;
  
  copy $temp, $f;
}

sub process-file($f) {
  if ($f.basename ~~ /\.py$/) {
    process-py-file $f;
  }
}

sub process($d) {
  if ($d.d) {
    for dir $d -> $child {
      process $child;
    }
  }
  else {
    process-file $d;
  }
}

process $here;