Re: Re: Tar GZip Question

I tried to do that. The problem is getting it to extract intp a different directory. I tried this:

 mirror("http://www.digitmania.holowww.com/targz/katt0$number.tar.gz",
+ "katt0$number.tar.gz");
 system("mv", "katt0$number\.tar\.gz", "\.\.\/html\/img\/katt0$number\
+.tar\.gz");
 system("tar", "zxvf", "\.\.\/html\/img\/katt0$number\.tar\.gz");
[download]

It downloads and moves the files, but won't extract them in that directory. Do you know what might be wrong (or have an alternative solution)?

Comment on Re: Re: Tar GZip Question Download Code

Replies are listed 'Best First'.
Re^3: Tar GZip Question by Aristotle (Chancellor) on Oct 30, 2002 at 12:28 UTC
`man tar` has what you need: `-C, --directory DIR change to directory DIR` [download] You needn't move the file either, it's enough to pass that parameter. Otherwise, `tar` will of course work in the current directory. Makeshifts last the longest.	[reply] [d/l]
Re: Re: Re: Tar GZip Question by helgi (Hermit) on Oct 30, 2002 at 12:56 UTC
My psychic powers tell me you are doing this through CGI and the anonymous user "httpd" or "nobody" or "iusr_xxx" does not have permission to write to the directory in question. Second, what's with all the backslashes? Yech! Third, You should use the rename function within perl (or the File::Copy module) to do your moving, not an external command. Fourth, you should use Archive::Tar to handle your extraction, not an external command. Fifth, whether you use modules or external commands to do your file handling and extraction, you should always, always, ALWAYS return the error message from the operation ($! for perl system functions, $? for system commands. -- Regards, Helgi Briem helgi AT decode DOT is	[reply]