Perlでpopen()的なものを使って・・

質問

今Perlでちょっとしたアプリを作っています。

サーバはunix系でアプリの内容はコマンドの結果値をＨＴＭＬで表示させるというものです。

一度Ｃで作って成功しました。
簡単に書きます。（HTMLの表示部分は簡略します）

int main()
{
char *token;
char str[1024];
FILE *fp = popen("ls -la","r");

while(fgets(str,1024,fp)!=NULL){
token = strtok(str,NULL);
printf("結果:%s\n",token);
}

exit(0);
}

とコマンド（例：ls -la）を実行してファイルハンドルを返してコマンドの結果値を読み取って表示させるというものなのですが、これをPerlに移行したいと考えています。

Perlをさわるのが初めてでしてネットで調べてみても
なかなか参考になるものはありません。
Perlの関数にpopen()が存在するのかまたfgets()、strtok()に類似する関数がありましたらアドバイスいただけないでしょうか。

よろしくお願いします。

回答No.2

hofuhofu · ベストアンサー

print `ls -la`;
が一番簡単だと思いますが、あえて質問文に似せるなら、
open (ls, 'ls -la |');
while(read( ls,$result,1024)){
print $result;
}
close(ls);
ぐらいかな。
もう少し簡略化して、
open (ls, 'ls -la |');
while(<ls>){
print;
}
close(ls);
とも書けます。
strtokが何をしているか、いまいちよくわからないので無視しています。
一応、
popen()->open()
fgets()->read()
strtok()->split()
ぐらいに対応すると思います。
splitはちょっと違うかもしれませんが。
http://plaza27.mbn.or.jp/~satomii/jdoc/perltut/split.html

参考URL：

http://www.tokyo-nagasaki.net/dayan/tips/unix/perl.html

お礼

できました！！
ありがとうございます。

回答No.1

natsuki_tk

C言語はあまり存じ上げないのですが、
system関数はCにもありませんでしたっけ？

print system("dir"); #win系なら
でそのまま一覧表示できたりします。
(単純すぎて物足りないものでしょうか?)

もしくは、バッククオートを使って、
print `dir`;
でも同じことができます。
こちらの方が応用がきくかもしれません。

FileHandle使わなくても、
my @list = `dir`;
で代入まで済みますので、
多分popen()の代わりにこの場合なっていると思います。

その他
Shellモジュールもコマンド操作用に用意されてますので、
興味があれば調べてみてください。

#何分Cの方がわかっていないので、勘違いしていたらすみません。