common/tools/zip_includefiles.pl
changeset 459 23f06901b597
parent 458 ef8c69f2539d
parent 457 991d89a55c87
child 460 fda39efc6eb8
equal deleted inserted replaced
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 }