couple utility scripts

[dbsrgits/SQL-Abstract.git] / maint / inplace

diff --git a/maint/inplace b/maint/inplace
new file mode 100755 (executable)
index 0000000..d8866bd
--- /dev/null
+++ b/maint/inplace
@@ -0,0 +1,15 @@
+use strictures 2;
+use autodie;
+
+my ($cmd, $file, @args) = @ARGV;
+
+my $input = do { local (@ARGV, $/) = $file; <> };
+
+close STDOUT;
+open STDOUT, '>', $file;
+
+open $out, '|-', $cmd, @args;
+
+print $out $input;
+
+close $out;