diff options
| -rwxr-xr-x | each | 18 | ||||
| -rw-r--r-- | each.1 | 56 |
2 files changed, 0 insertions, 74 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); -} @@ -1,56 +0,0 @@ -.Dd $Mdocdate$ -.Dt each 1 -.Os -. -.Sh NAME -.Nm each -.Nd do with each line -. -.Sh SYNOPSIS -.Nm each -.Ar command -.Op Ar separator command ... -. -.Sh DESCIPTION -.Pp -.Nm -runs each given -.Ar command -for every line read on standard input. -.Ar separator -is one of -.Ql \&; , -.Ql | , -.Ql && -and -.Ql || . -.Pp -Within a command, the contents of the line is assigned to the variable -.Ev x , -which can be accessed with the normal shell variable interpolation syntax, -except you need to put a plus sign after the dollar sign: -.Bd -literal -offset indent -$+x -$+{x} -$+{x#/} -$+{x%.mp3} -$+{x%%.*} -.Ed -.Pp -This syntax generally doesn't need to be quoted -when entered in the Bourne or Korn shells -(unless you need to put commas inside the curly braces -or have files whose names begin with -.Ql $+ ) . -.Sh AUTHORS -.Pp -.Nm -is written by John Ankarström -.Aq Mt john (at) ankarstrom.se . -.Sh BUGS -.Pp -It is not possible to insert a literal -.Ql $+ . -Quoting it with a backslash prevents the interpolation, -but results in the literal string -.Ql $ . |