1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!/usr/bin/perl
=head1 NAME
zrun - automatically uncompress arguments to command
=head1 SYNOPSIS
zrun command file.gz [...]
=head1 DESCRIPTION
Prefixing a shell command with "zrun" causes any compressed files that are
arguments of the command to be transparently uncompressed to temp files
(not pipes) and the uncompressed files fed to the command.
This is a quick way to run a command that does not itself support
compressed files, without manually uncompressing the files.
The following compression types are supported: gz bz2 Z lzma lzo
If zrun is linked to some name beginning with z, like zprog, and the link is
executed, this is equivalent to executing "zrun prog".
=head1 BUGS
Modifications to the uncompressed temporary file are not fed back into the
input file, so using this as a quick way to make an editor support
compressed files won't work.
=head1 AUTHOR
Copyright 2006 by Chung-chieh Shan <ccshan@post.harvard.edu>
=cut
use warnings;
use strict;
use IO::Handle;
use File::Spec;
use File::Temp qw{tempfile};
my $program;
if ($0 =~ m{(?:^|/)z([^/]+)$}) {
$program = $1;
if (! @ARGV) {
die "Usage: z$1 <args>\nEquivalent to: zrun $1 <args>\n";
}
}
else {
$program = shift;
if (! @ARGV) {
die "Usage: zrun <command> <args>\n";
}
}
my @argument;
my %child;
foreach my $argument (@ARGV) {
if ($argument =~ m{^(.*/)?([^/]*)\.(gz|Z|bz2|lzo|lzma)$}s) {
my $suffix = "-$2";
my @preprocess = $3 eq "bz2" ? qw(bzip2 -d -c) :
$3 eq "lzo" ? qw(lzop -d -c) :
$3 eq "lzma" ? qw(lzma -d -c) : qw(gzip -d -c);
my ($fh, $tmpname) = tempfile(SUFFIX => $suffix,
DIR => File::Spec->tmpdir, UNLINK => 1)
or die "zrun: cannot create temporary file: $!\n";
if (my $child = fork) {
$child{$child} = $argument;
$argument = $tmpname;
}
elsif (defined $child) {
STDOUT->fdopen($fh, "w");
exec @preprocess, $argument;
}
else {
die "zrun: cannot fork to handle $argument: $!\n";
}
}
push @argument, $argument;
}
while (%child and (my $pid = wait) != -1) {
if (defined(my $argument = delete $child{$pid})) {
if ($? & 255) {
die "zrun: preprocessing for $argument terminated abnormally: $?\n";
}
elsif (my $code = $? >> 8) {
die "zrun: preprocessing for $argument terminated with code $code\n";
}
}
}
my $status = system $program ($program, @argument);
if ($status & 255) {
die "zrun: $program terminated abnormally: $?\n";
}
else {
my $code = $? >> 8;
exit $code;
}
|
