diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:21 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:21 +0200 |
commit | 7c72e9b9b2d200a4ff7914c88cd6652211cd6133 (patch) | |
tree | 3d9b4e876a281d68c444281996fb25d9d0601334 /each | |
parent | 03d827e2fbc409ef97829f25b8eeca5204f81a3c (diff) | |
download | xutil-7c72e9b9b2d200a4ff7914c88cd6652211cd6133.tar.gz |
Remove each
I wasn't entirely happy with it.
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); -} |