cshからperlを呼び出しファイルに出力

OKWave 2007年08月06日 13時00分

  • このエントリーをはてなブックマークに追加
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/​

  • このエントリーをはてなブックマークに追加
関連キーワード
OS

SpecialPR

  • デジタル変革か?ゲームセットか?

    デジタルを駆使する破壊的なプレーヤーの出現、既存のビジネスモデルで競争力を持つプレイヤーはデジタル活用による変革が迫られている。これを読めばデジタル変革の全体像がわかる!

  • 「奉行シリーズ」の電話サポート革命!活用事例をご紹介

    「ナビダイヤル」の「トラフィックレポート」を利用したことで着信前のコール数や
    離脱数など、コールセンターのパフォーマンスをリアルタイムに把握するに成功。詳細はこちらから