changeset 459 | 23f06901b597 |
parent 458 | ef8c69f2539d |
parent 457 | 991d89a55c87 |
child 460 | fda39efc6eb8 |
458:ef8c69f2539d | 459:23f06901b597 |
---|---|
1 #!perl -w |
|
2 |
|
3 use strict; |
|
4 |
|
5 my @includefiles = glob "*_includefile.txt"; |
|
6 foreach (@includefiles) |
|
7 { |
|
8 my $includefilename=$_; |
|
9 if (m/(.*)(_includefile.txt)/) { |
|
10 my $zipfilename = $1.".zip"; |
|
11 system("7za a -tzip -i@".$includefilename . " " .$zipfilename); |
|
12 } |
|
13 } |