From 75f6926390f33f62b95b355d48bc5454243ddcea Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Wed, 2 Jun 2021 21:12:38 +0200
Subject: Add 'each' utility

---
 each | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 each

(limited to 'each')

diff --git a/each b/each
new file mode 100755
index 0000000..bed5bb8
--- /dev/null
+++ b/each
@@ -0,0 +1,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;
+}
-- 
cgit v1.2.3