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