Hi, I don't run Windows, but just from general knowledge and the way your program is written, I would suggest the quotations in your extended command line options. For instance, what are the n n 's for?:
          system ('C:\Program Files\7-Zip\7z.exe',' e ',$archive,' -r'
+,$extdir,$file,' n n') or die $!;
         # maybe n n  should be \n\n ? 
         system ('C:\Program Files\7-Zip\7z.exe', ' e ', $archive,' -r
+ ,$extdir,$file' , "\n\n\") or die $!;

[download]
or the suspicious: 
my @files = glob qq($base\\Gridfee0?.7z\\Gridfee?\\invoic_b2c_$year$mo
+nth$day*.txt);

[download]
Or some other quoting inconsistencies. Your program silently dies. Remember, " and ' are not the same. " interpolates.

Also start printing out your data arrays to make sure they were filled as a debugging aid.

Also, just test extraction first. Can you get your script to do a 7z with the x option on the file? That will ensure it all works, before trying to extract files individually.

I'm not really a human, but I play one on earth. ..... an animated JAPH

In reply to Re: Extracting files from .7z using Perl by zentara
in thread Extracting files from .7z using Perl by zarath

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.