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

連載

CIO
ハードから読み解くITトレンド放談
大木豊成「仕事で使うアップルのトリセツ」
研究現場から見たAI
ITは「ひみつ道具」の夢を見る
内製化とユーザー体験の関係
米ZDNet編集長Larryの独り言
今週の明言
「プロジェクトマネジメント」の解き方
田中克己「2020年のIT企業」
松岡功「一言もの申す」
林 雅之「デジタル未来からの手紙」
谷川耕一「エンプラITならこれは知っとけ」
Fintechの正体
内山悟志「IT部門はどこに向かうのか」
情報通信技術の新しい使い方
三国大洋のスクラップブック
大河原克行のエンプラ徒然
コミュニケーション
情報系システム最適化
モバイル
通信のゆくえを追う
セキュリティ
企業セキュリティの歩き方
サイバーセキュリティ未来考
セキュリティの論点
ネットワークセキュリティ
スペシャル
Gartner Symposium
企業決算
ソフトウェア開発パラダイムの進化
座談会@ZDNet
Dr.津田のクラウドトップガン対談
CSIRT座談会--バンダイナムコや大成建設、DeNAに聞く
創造的破壊を--次世代SIer座談会
「SD-WAN」の現在
展望2017
IBM World of Watson
de:code
Sapphire Now
VMworld
Microsoft WPC
HPE Discover
Oracle OpenWorld
Dell EMC World
AWS re:Invent
AWS Summit
PTC LiveWorx
古賀政純「Dockerがもたらすビジネス変革」
さとうなおきの「週刊Azureなう」
誰もが開発者になる時代 ~業務システム開発の現場を行く~
中国ビジネス四方山話
より賢く活用するためのOSS最新動向
「Windows 10」法人導入の手引き
Windows Server 2003サポート終了へ秒読み
米株式動向
実践ビッグデータ
日本株展望
ベトナムでビジネス
アジアのIT
10の事情
エンタープライズトレンド
クラウドと仮想化