Re^3: 7zip a folder

[soonix]

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;

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

[ytjPerl]

Hi Soonix, It is working, Thanks! I am just wondering if there is a command to zip file and also delete what we've archived. Or we just zip files then to delete them using two steps. Thanks

[soonix]

You'd have to implement this yourself. It seems to me the creators of 7-zip aren't willing to implement this because it is too easy to destroy a freshly created archive after all the files are compressed and deleted.

[ytjPerl]

Basically, what I am doing now is to move all the files falling into my date range to a new folder which foldername is the timestamp of those files, then zip all the file under this folder, I could not get it through, because it is saying \$foldername\ the system cannot find the path specified.

$date = strftime("%Y-%m-%d", localtime);
mkdir my $foldername = "D:/log_script/Archive/$date";
my @cmd = 
    'D:/app/7-Zip/7z.exe',
    'a', '-mx9', 
    'D:/log_script/Archive/target.zip',
    '$foldername/*.log'
     );
print 'about to execute: ', Dumper \@cmd;
system @cmd;

[ytjPerl]

Hi Soonix, Can I also ask you what is the 9 meaning in -mx9? Thanks