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 (/^;$/) { $command .= '; '; next; }
	if (/^&&$/) { $command .= '&& '; next; }
	if (/^\|\|$/) { $command .= '|| '; next; }
	if (/^\|$/) { $command .= '| '; next; }
	s/"/"'"'"/g;
	s/\$/\\\$/g;
	s/\\\$\+/\$/g;
	$command .= "\"$_\" "
}

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