extractor

tinyos-2.x.rar

#!/usr/bin/perl
$name = $ARGV[0];

@files = split /\n/, `find .`;
@result = @files;

while (<STDIN>) {
    if (/^!(.*)/) { # exclude
	$pat = $1;
	@result = grep !/$pat/, @result;
    }
    else { # include
	$pat = $_;
	chop $pat;
	push @result, grep /$pat/, @files;
    }
}

mkdir $name;
open TAR, "|tar cf - -T - --no-recursion | tar xf - -C $name";
print TAR join("\n", @result);
close TAR;
#print join("\n", @result);
system("tar cf - $name");