codeなにがし::Perlで外部コマンドの結果を取り込む

Perlで外部コマンドの結果を取り込む: l-w-i

ソースコードID：　347
登録日時：　2007/10/11 16:19
最終更新日時：　2007/10/27 23:21
アクセス数：　3159
タグ：　 perl

0 users

1

説明

Perlで外部コマンドを実行するには通常system()を使いますが、その結果を取り込んでPerlで処理する必要が出てきてsystem()ではうまくいきませんでした。

少し調べたところ、単にコマンドをバッククォートでくくれば結果が取れることが分かりました。

そういえば普段はopen()の第2パラメータにコマンドを指定しているのを思い出しました。

既出かもしれませんが、備忘録として両方の手順を書いておきます。

ソースコード

履歴表示コピペ用

■ソース(バッククォートを使う場合)

@result = `ps`;

foreach(@result)
{
  chomp;
  print $_,"\n";
}

■ソース(openを使う場合)

open(P,"ps |");

while(<P>)
{
  chomp;
  print $_,"\n";
}

■結果

  PID TTY          TIME CMD
30089 pts/22   00:00:00 bash
30107 pts/22   00:00:00 test.pl
30108 pts/22   00:00:00 ps

■実行環境

- Fedora 7 (2.6.22.9-91.fc7)
- Perl-5.8.8

コメント

1：mikiT
2007/10/11 16:39

>@result = `ps`;

ps の結果を @result に代入します。
ということで、コマンドの出力ぶんメモリを食うので、あまりよろしくない書き方かと思われます。

0

2：l-w-i
2007/10/11 16:53

> コマンドの出力ぶんメモリを食うので...

おっしゃるとおりです。

なので`ps -ax`等の結果ではなく、控えめに`ps`の結果にしてみました(笑)。

きちんと書くならやはり入り口で出力データを絞るということですよね。

ご指摘ありがとうございます。

0

3：ゲスト
2007/10/27 17:06

my $var = readpipe( 'コマンド' );
でもOKですね。

ただ、1行の値として読み込んでしまうので、
複数行を標準出力に出力するコマンドの場合は、
注意が必要です。

0

4：l-w-i
2007/10/27 23:21

> ゲストさん

こんな方法もあるんですね。

ありがとうございます。

参考になります。

1行ずつ配列に入れれば楽に使えますね。

my @var = readpipe('ps');

foreach(@var)
{
print;
}

0

前へ 1 次へ

コメントする

[block]から[/block]までの範囲はブロック表示されます。
部分的に目立たせたい時や、引用などにお使いください。

[code]から[/code]までの範囲は等幅表示されます。
ソースコードや設定ファイルの記述などにお使いください。

ソースコードのブログパーツ

プレビュー (表示する)

下のプレビュー領域をクリックすると、ポップアップで全体を見ることができます。

パラメータが不正です

GoodJobしたユーザ

ブックマークコメント

関連するなにがし

前へ 1 次へ

お問い合わせ