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 }