projects
/
dbsrgits/SQL-Abstract.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
add more expression types to reference
[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;