diff options
Diffstat (limited to 'each')
-rwxr-xr-x | each | 18 |
1 files changed, 0 insertions, 18 deletions
@@ -1,18 +0,0 @@ -#!/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); -} |