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）へ出力することが可能でしょうか？
ご存知の方がいらっしゃいましたらご教授願います。

No.1 ベストアンサー 回答者： hchonan 回答日時： 2007/04/24 15:25

プログラムの出力やエラー表示、キーボードからの入力などといった端末に表示されたものすべてを記録したい場合には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のスクリプトを参考に工夫してみてください。

参考URL：http://www.kmc.gr.jp/~tak/sources/sh/

この回答への補足

お礼が大変遅くなりまして申し訳ございません。
hchonan様よりご教授いただいた内容で万事上手くいきました。
大変勉強になりました。
本当にありがとうございます。

補足日時：2007/04/27 02:07

この回答へのお礼

早速のご回答ありがとうございます。
script に関して試してみたいと思います。
全てかa.logへ出力できそうな感じがしています。
実際に試す事が出来るのが２～３日後になってしまいますので、結果はそれから連絡差し上げます。
簡単ですが、お礼とさせていただきます。

お礼日時：2007/04/24 22:29