"\n\n\"
[download]

to:

"\n\n"
[download]

"\n\n\"
     ^
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

When debugging an error, simplify, simplify. See how you get on with:

my @args = ("command", "arg1", "arg2");
system(@args) == 0 
     or die "system @args failed: $?";
[download]

What is "capture_merged"?

I suspect that the function that you are asking about is capture_merged from the Capture::Tiny module.

Hello ytjPerl,

It seems that the fellow Monks have tried to assist you. Since you have not updated your question if you have resolved the issue/problem I will just add some minor notes, hopping that they will assist you.

There have been a few similar questions to yours, like Perl and 7zip and backticks and Caturing 7zip output with Perl. I also found a relevant module Archive::SevenZip, which should minimize the errors.

Read the questions, try to apply the module and let us know if it worked for you.

Hope this helps, BR.

I saw this command

Perl> open PIPE, '-|', '"\Program Files\7-Zip\7z.exe" e -so e:\UnxUtil
+sSrc.zip 2>&1 1>nul' or die $@;;
[download]

which can extract zip file.

But I still do not know what is the syntax for compress folder. I move all the files into a folder then compress it.

I'd suggest first reading the 7-zip help to learn how to use it's command line interface. You'll need to understand how to run the command outside of Perl before you can incorporate that command inside your Perl code.

I believe that the general syntax that you're looking for is:

"C:\Program Files\7-Zzip\7z.exe" a -tzip my_archive.zip C:\my_data\ -r

However, putting that into your Perl code and trying to capture the output (STDOUT and/or STDERR) may be a challenge. I apologize for not being able to describe this using correct terminology. The 7z.exe is at times reusing lines in STDOUT to show progress. I could be wrong, but I think that behavior will causes challenges when trying to caputure output messages from the 7z.exe utility.

I second dasgar's answer, especially the first paragraph. That said, I have compressed things using something like the following, which would compress all .txt files in current and subdirs into target.zip:

...
use Data::Dumper;
...
my @cmd = (
    'c:\Program Files\7-Zip\7z.exe',
    'a', '-mx9', '-r', 
    'target.zip',
    '*.txt',
    );
print 'about to execute: ', Dumper \@cmd;
system @cmd;
[download]

The 7zip man page is not on their home page, but over there you can have a glance.