It seems like you are using `gtar` which is more flexible
than the usual `tar` command. I'd go for the following which
is more general and will work on many other systems.
(gtar pipes bzip/gzip on its own anyway so this
doesn't have overhead)
#!/usr/bin/perl -w
$_=shift or die "Need file name\n";
my $command="cat $_ | ";
# Deal with common shortcuts:
s/\.tgz/.tar.gz/g;
s/\.tbz/.tar.bz/g;
STRIP: {
$command .= "gzip -dc |", redo STRIP if s/\.gz$//;
$command .="bzip2 -dc |", redo STRIP if s/\.bz2*$//;
$command .="uncompress |", redo STRIP if s/\.Z$//;
$command .="unarj |", redo STRIP if s/\.arj$//;
$command .= "tar tvf - |" if s/\.tar$//;
$command .= "ghostview - |" if s/\.ps//;
}
chop $command; # remove the last pipe
system($command)
Added: open a postscript file as well :)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|