projects
/
dbsrgits/SQL-Abstract.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6596e465d583d8a14758cb6c1c6ca22e90646b53
[dbsrgits/SQL-Abstract.git]
/
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;