common/tools/zip_includefiles.pl
changeset 112 3fc223926c4a
child 116 47cccedacd2d
equal deleted inserted replaced
111:5b0bc2f89660 112:3fc223926c4a
       
     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("7z a -tzip -i@".$includefilename . " " .$zipfilename);
       
    12 	}
       
    13 }