server side perl untar script

perl untar

[jwzumwalt]

I need a script (presumably cgi) to untar files once a file has been uploaded to the server. I have done exhaustive searching of major perl sites but have only found one script that untars into only one directory. It does not preserve the directory structure.

Some help would be appreciated... Thanks JZ

[phranque]

something like this should work:
#!/usr/bin/perl
$result = `/bin/tar -xf /path/to/filename.tar 2>&1`;
print "tar extraction error: $result" if $?;

[chorny]

jwzumwalt, use Archive::Tar from CPAN (it is core in perl 5.10).