common/tools/zip_includefiles.pl
author thomase
Mon, 01 Jun 2009 17:19:32 +0100
changeset 155 1f3285cd5668
parent 139 47cccedacd2d
permissions -rw-r--r--
Added analyse_components.pl and related call to build.xml Modified merge_csv.pl to use "7za" instead of "7z"

#!perl -w

use strict;

my @includefiles = glob "*_includefile.txt";
foreach (@includefiles)
{
    my $includefilename=$_;
	if (m/(.*)(_includefile.txt)/) {
		my $zipfilename = $1.".zip";
		system("7za a -tzip -i@".$includefilename . " " .$zipfilename);
	}
}