Re: how can i unzip a file

My guess is you're asking how to call WINRAR via the perl script. This is easy with a system() call, as such (I don't know WINRAR syntax, so I'll just use gzip):

my @args = ("gunzip", "$file");
my $rv = system(@args);
die "system @args failed: $?" if ($rv != 0);
[download]

In your case, you'd just make "gunzip" the executable name for WINRAR, and pass in any other arguments besides the local file name to unzip as extra items in the @args list in the correct order as on the command line.

---
echo S 1 [ Y V U | perl -ane 'print reverse map { $_ = chr(ord($_)-1) } @F;'
Warning: Any code posted by tuxz0r is untested, unless otherwise stated, and is used at your own risk.

Comment on Re: how can i unzip a file Download Code