each


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

$i = 0;
for (@ARGV) {
	if (/^;$/) {
		$i++;
		next;
	}
	s/"/"'"'"/g;
	s/\$/\\\$/g;
	s/\\\$\+/\$/g;
	$commands[$i] .= "\"$_\" "
}

while (<STDIN>) {
	chomp($ENV{x} = $_);
	system($_) for @commands;
}