Help for this page

Select Code to Download

Select or download this

          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 $!;

Select or download this

my @files = glob qq($base\\Gridfee0?.7z\\Gridfee?\\invoic_b2c_$year$mo
+nth$day*.txt);