やまとです。
いつもありがとうございます。
Perl + csh を同時(?)に実行する方法を教えてください。
OSはSunです。
具体的にどのような処理を行いたいか簡単に説明しますと。
1.Perlでcshを実行(system関数?)し、cshで環境変数をセット(source)する。
2.cshで環境変数をセットしたら、ファイルを出力する処理が行われます。
3.Perlでcshによって出力されたファイルの内容を画面に表示します。
以下ソースを掲載します。(抜粋して)
==================================================
= Perl ( test_perl.pl )
$data = "ABC";
$ret = system(`test_csh.sh $data`);
・
・
ファイル(test.log)を開き、読込、画面に表示します(まだ作成してません。)
==================================================
= Csh ( test_csh.sh )
source test_source.sh
echo $1 > test.log
==================================================
= test_source.sh
setenv CLASSPATH .:/aaa・・・・・・
↑
PATHの設定を行ってます。
==================================================
画面に、「ABC」と出力させたいのです。
Perlからcshが実行されていないように思えるのですが、
Perlのsystem関数の使い方が誤っているのでしょうか?
それとも、ClassPath等の設定をしなければならないのでしょうか?
ちなみにコマンドから、
# test_csh.sh ABC
と実行しますと、ファイルが出力され、かつ、sourceも実行されています。
Perlから実行する方法を教えてください。
説明が不十分であれば、補足いたしますのでご指摘ください。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
========================================
= Perl ( test_perl.pl )
$data = "ABC";
system("test_csh.sh $data");
# $ret = system(`test_csh.sh $data`);
# だと、バッククオート` を使っているから
# test_csh.sh $dataを実行したときの出力結果が
# system関数の引数として使われます。
# ですから、ダブルクオート" を使いましょう。
# 以下、test.logの内容を出力
open TESTLOG, "test.log" or die "test.log: $!\n";
print <TESTLOG>;
close TESTLOG;
=========================================
こんな感じでできるんじゃないでしょうか(未確認です)。
この回答への補足
回答ありがとう御座います。
結果から申しますと出来ませんでした。
$data = "ABC";
$ret = system("test_csh.sh $data");
ファイル出力すらされません。
test_csh.sh が動いていないような感じです。
しかし、コマンドラインからは実行すると、正常にファイル出力されます。
systemで呼び出すファイル名を、フルパスで指定したりしてみましたが、
いざ画面から実行すると、実装できません。
test_csh.shの実行権限もありますし、PATHの設定が問題なのでしょうか?
No.4
- 回答日時:
シェルスクリプトの先頭に実行するシェルの指定はあるでしょうか。
具体的に言うとスクリプトの1行目が
#! /bin/csh
となっているでしょうか。
cshのpathは、次のコマンドで確認できます。
which csh
また今回のテストプログラム test_source.sh
を which コマンドでpathが表示されることを確認してください。
mosuradazoさん
ご回答有難う御座います。
お礼の返事遅くなりまして本当にすみません。
結果から申しますと、実装できました。
原因はPerlが動作しているオーナー・ユーザが全く関係ないもので
Path等が全く設定されていなかったのです。
Pathを正しく設定して正常に動作できました。
有難うございました。
No.2
- 回答日時:
できなかったんですか。
以下のスクリプトを試したところ、
ファイル作成・ファイルの内容出力ともに
できましたが。
==========
(test_perl.pl)
$data = "ABC";
$ret = system("./test_csh.sh $data");
open TESTLOG, "test.log" or die "test.log: $!\n";
print <TESTLOG>;
close TESTLOG;
==========
==========
(test_csh.sh)
echo $1 > test.log
==========
>systemで呼び出すファイル名を、フルパスで指定したりしてみましたが、
>いざ画面から実行すると、実装できません。
>test_csh.shの実行権限もありますし、PATHの設定が問題なのでしょうか?
いや、フルパスを指定してもだめってことは
PATHの問題ではないでしょう。
何が問題なのかはスクリプトを見てみないとわかりません。
HOGERA3さん
ご回答有難う御座います。
お礼の返事遅くなりまして本当にすみません。
結果から申しますと、実装できました。
原因はPerlが動作しているオーナー・ユーザが全く関係ないもので
Path等が全く設定されていなかったのです。
Pathを正しく設定して正常に動作できました。
有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) VScodeでpythonプログラムの関数を実行したい 2 2022/07/13 19:24
- UNIX・Linux Debianでシェルスクリプトにおいて正規表現の条件文で[[,]]が使えないので困ってます 2 2023/01/20 09:27
- その他(プログラミング・Web制作) Linuxについて質問です。 引数に指定されたアクセスログのファイルからアクセス数が多い順に上位3つ 1 2023/02/03 03:46
- Perl perlで2次元配列をサブルーチンに値渡しで渡す 5 2022/12/17 18:49
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Perl Perlで特定文字列から特定文字列までを抜き出したい 4 2022/04/02 14:24
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Windows 10 ネットワークプリンターにファイルを直接送る方法・コマンドないですか?(´・ω・`) 3 2023/03/13 23:15
- Excel(エクセル) VBA ワークシート指定の1行目を選択をしたい 2 2022/08/20 18:10
- Windows 10 renameコマンドでファイル名からアンダースコアを消す方法 5 2023/04/24 13:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
perlで2次元配列をサブルーチ...
-
perlをバージョンアップしたら...
-
openした後、closeしないでプロ...
-
Strawberry Perl for Windows ...
-
Perl 重複カウント 上位3名
-
perlでリテラル値はメモリにど...
-
perlのrequireの動き方について...
-
Windows10においての『Perl』の...
-
TeraPadエディターの操作方法に...
-
Wコロン
-
perl qw 中でコメントアウトす...
-
Perl テキスト 列検索
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら...
-
openした後、closeしないでプロ...
-
Perlで特定文字列から特定文字...
-
Wallpaper Engineでおすすめの...
-
Perlのエラーについてご教授く...
-
アルファベットに付いて質問し...
-
Strawberry Perl for Windows ...
-
bashスクリプト
-
テキストファイルで提出とは?
-
Perl の外部モジュールの利用方法
-
#!/usr/bin/perlで書きだしたCG...
-
Windows10においての『Perl』の...
-
perlのflock関数でロックをかけ...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字...
-
英数文字列のうちの数値を4桁に...
おすすめ情報