cshからperlを呼び出しファイルに出力
いつもお世話になっております。
cshからperlを呼び出しperlが出力する内容と入力項目を実行しているcsh内部で行ない結果をファイルへ出力したいのですが、そのような事ができるのでしょうか？
----------
cshファイル内
#!/bin/csh
echo "●perl a.pl を実行します" | tee a.log
perl a.pl
----------
perlファイル内
（perlがわかりませんので、perlの内容をcsh形式で記述させていただきます）
(1)echo -n "日付を入力して下さい"
(2)echo "⇒ "
(3)set INPUT_DATE = $<
(4)echo "日付：$INPUT_DATE "
exit 0
----------
cshから実行されたperl（csh）の内容［(1)(2)(3)(4)］をファイル（| tee a.log）へ出力することが可能でしょうか？ ご存知の方がいらっしゃいましたらご教授願います。
良回答
プログラムの出力やエラー表示、キーボードからの入力などといった端末に表示されたものすべてを記録したい場合にはscriptコマンドが便利です。
提示されたcshスクリプトから、teeの部分を取り除いた
----------
#!/bin/csh
echo "●perl a.pl を実行します"
perl a.pl
----------
という内容の job.csh を作成した場合、下記のようにjob.cshを実行する前にscriptコマンドを実行することにより、端末に表示された文字を記録することができます。
----------
% script a.log
script コマンド開始。ファイルは a.log です。
$ csh ./job.csh
●perl a.pl を実行します
...
...
$ exit
script コマンド終了。ファイルは a.log です。
----------
しかしながら、scriptコマンド自体もシェルスクリプトの中で実行させようとした場合、Solarisのscriptコマンドが実行するコマンドを指定できない仕様となっているため工夫が必要で、先のjob.cshを
----------
#! /bin/csh
if ( "$SHELL" != "$0" ) then
setenv SHELL $0
exec script a.log
else
echo "●perl a.pl を実行します"
perl a.pl
....
....
endif
----------
とトリッキーな書き方をするか、もしくは参考URLのラッパスクリプトを利用する必要があります。( FreeBSD 4.x や util-linux 2.12 以降の script コマンドでは -c オプションが使えるのでこの工夫は必要ありません )
また、記録されたファイルには制御文字も記録されるので、
----------
% cat a.log | col -b > b.log
----------
として制御文字を取り除く必要もあるかと思います。
script , col の両コマンドや参考URLのスクリプトを参考に工夫してみてください。 http://www.kmc.gr.jp/~tak/sources/sh/
