Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^5: help with unraring

by nikosv (Chaplain)
on Apr 25, 2012 at 08:22 UTC ( #967016=note: print w/replies, xml ) Need Help??

in reply to Re^4: help with unraring
in thread help with unraring

When you have a multipart file i.e
test.part1.rar test.part2.rar test.part3.rar
all parts form a chain.

what it does is that when reading the first part test.part1.rar,it extracts all the file contents spanning all other parts but also scans the filenames for the rest of the parts so that in a batch job they do not get needelsy processed again since they have been already extracted;that is the caching process.

The "error" you see simply means that it has already seen the other parts and so diregards their processing. That is not the cause of the file not being extracted. Post your code to check what you are trying to do

Also can you tell me how to process each extracted file one at a time such that one file is extracted and its contents are processed for a regex than the next one is processed in similar fashion and so on instead of just extracting in a single go?

unfortunatelly this cannot happen;everything has to uncompressed in one go

Replies are listed 'Best First'.
Re^6: help with unraring
by gautamparimoo (Beadle) on Apr 25, 2012 at 08:44 UTC

    My code is same as i have shown earlier

    use Archive::Unrar qw(list_files_in_archive %donotprocess 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 : (.*)/ } split ("\n",$stdout); } foreach (@files) { print "file ",++$i," : ",$_,"\n"; } ($result,$directory) = process_file( file=>'C:/perl2exe/For perl 5.10.1/test.ra +r', password=>undef, output_dir_path=>"C:/extract/", ); } print "$result"; print "$directory";

    $result gives me the chain error

      paths in windows uses backlashes

      file=>"C:\\perl2exe\\For perl 5.10.1\\test.rar",

      ($result,$directory) = process_file( file=>"C:\\perl2exe\\For perl 5.10.1\\test.rar", password=>undef, output_dir_path=>"C:\\extract" );
      try and tell me
        paths in windows uses backlashes

        Only some tools (including cmd.exe and are restricted to backslashes, the API functions accept both forward slashes and backslashes in all versions of DOS and Windows. So, using forward slashes is perfectly ok.


        Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

        I changed backslashes but still gives me chain error. Another thing i noticed is that if i comment out list_archives_in_file method , it extracts to the location but if i list_archive first and then process_file it gives the chain error.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://967016]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2018-07-18 05:27 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (383 votes). Check out past polls.