Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks

I want to unrar an archive by extracting the archived files one by one so as to perform some searching on each file.

The two main modles for this are the Archive::Rar and Archive::Unrar. Archive::Rar has the dependecy that the WinRAR software should be already present on the system to extract so it is not free so not usable. Archive::Unrar has prerequisite that unRAR.dll be present which is a more workable solution as i cannot buy WinRAR software.

Now my problem is with the Archive::Unrar module in which i am trying the following code

use Archive::Unrar qw(list_files_in_archive %donotprocess process_file
+);    
    
@files =list_files_in_archive(  file=>"C:/perl2exe/For perl 5.10.1/tes
+t.rar" ,undef);

foreach my $file (@files)
{
if ($file =~ /\.txt\z/)
{
$result = process_file( 
                            file=>'C:/perl2exe/For perl 5.10.1/test.ra
+r', 
                            password=>undef,
                            output_dir_path=>"C:/extract/",
                            #selection=>ERAR_MAP_DIR_YES,
                            #callback=>$callback 
                                      );

                                      
}                                      
}

[download]

IN the above code i dont get the desired archive extract to the output directory. I checked with return types of subroutines list_files_in_archive and process_files both return error_codes . So how can i possibly achieve what i am trying to do

Replies are listed 'Best First'.
Re: help with unraring
by roboticus (Chancellor) on Apr 23, 2012 at 11:05 UTC

    I'd suggest looking up the error codes to see what they mean, and then correcting the error. Grepping through the source code, searching the internet via google are typical way to look up the errors. Since you don't mention what the error codes are, though, I couldn't tell you what's wrong.

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]
Re: help with unraring
by nikosv (Deacon) on Apr 24, 2012 at 07:41 UTC

    list_files_in_archive does not return references to the contained files but just dumps them to stdout. If you need to get the filenames then you must capture the stdout and process it. Instead of forking, use the IO::CaptureOutput module 

    use Archive::Unrar qw(list_files_in_archive process_file);    
use IO::CaptureOutput qw(capture);
 
my @files;

{     
local ($stdout, $stderr);  
capture sub {list_files_in_archive(  file=>"C:/perl2exe/For perl 5.10.
+1/test.rar" ,undef)}, \$stdout, \$stderr;

@files=map {/Archive contents : (.*\.txt$)/ } split ("\n",$stdout); 

}

foreach (@files) {
    print "file ",++$i," : ",$_,"\n";
}

    [download]

    Also check the $result value to get and indication of the error returned

[reply]
[d/l]

      thanks for the reply. $result gives error -->found in chain.already processed. What does that mean ? How can i remove it?

[reply]
        is that a multipart file you are trying to extract? you can safely ignore this message;it merely says that the file has been already processed.It is used for caching purposes
[reply]
Re: help with unraring
by Argel (Prior) on Apr 23, 2012 at 21:06 UTC
    Is there some reason you cannot just shell out to e.g. run 7-Zip (specifically, 7z.exe), which can decompress RAR files?

    Elda Taluta; Sarks Sark; Ark Arks
    My deviantART gallery
[reply]
    A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Seekers of Perl Wisdom