Description:

I was trying to write a simple perl script the other day that, when given a tar or tar.gz file, got a listing of its contents (tar -tf or tar -tzf), put that into an array, then unlinked all those files. I often get tarballs that dump into the current directory, then have to manually delete all the files. I've written the script to take a file where I redirected the output of the tar listing, and removes files from the 2nd file, but I'd like to just dump all the files from the tarball into an array, and operate off of that.

$output=`tar -tf`;  #collects all the output from the "tar -tf" comman
+d
open TAR, "tar -tf|"; #open a process with a pipe on the right side
while(<TAR>){ #get the output line by line into $_; 
   do_something($_); #process the results;   
}
close TAR;
[download]

$output=qx(tar -tf);
[download]