maint/inplace

   1 #!/usr/bin/env perl
   2
   3 use strictures 2;
   4 use autodie;
   5
   6 my ($cmd, $file, @args) = @ARGV;
   7
   8 my $input = do { local (@ARGV, $/) = $file; <> };
   9
  10 close STDOUT;
  11 open STDOUT, '>', $file;
  12
  13 open $out, '|-', $cmd, @args;
  14
  15 print $out $input;
  16
  17 close $out;