#!/usr/local/bin/perl
# coms: 第１引数をコマンド名として後に続く引数に順に起動していく．
#
#   -s: 引数の置き換え方法の指定
#   -a: バックグランド実行用に &(ampersand) を付ける
#   -p: コマンドを起動せずに標準出力へ吐き出すのみ

# [1997/01/31] '-p' オプションを追加．system で直接起動できるようにした．

require "getopts.pl";
&Getopts('has:p');

if ($opt_h) {
    print
"coms: 第１引数をコマンド名として後に続く引数に順に起動していく．

   -s: 引数の置き換え方法の指定
   -a: バックグランド実行用に &(ampersand) を付ける
   -p: コマンドを起動せずに標準出力へ吐き出すのみ

";
}

$exectype="system";
$exectype="print" if ($opt_p);

$a='&' if $opt_a;

$com=shift(@ARGV);

foreach $f (@ARGV) {
	eval('$f'." =~ $opt_s");
	eval "$exectype(\"$com $f$a\n\")";
}

# major-mode: perl