changeset 464 | 48fbe8fe5076 |
parent 463 | 2ad847d21423 |
parent 457 | 991d89a55c87 |
child 465 | 8cf07278ef12 |
463:2ad847d21423 | 464:48fbe8fe5076 |
---|---|
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 } |