※ ChatGPTを利用し、要約された質問です（原文：ファイル一覧を表示）
perlプログラムでファイル一覧を表示する方法
このQ&Aのポイント
perlを使用してファイル一覧を表示する方法について説明します。
シェルスクリプトで正常に動作するコマンドをperlプログラムに組み込む場合、注意点があります。
perlプログラム内でawkを実行する際に制限がある可能性があります。書き方に問題があるかもしれません。
ファイル一覧を表示するため、別の質問にてシェルスクリプトを教えて
いただきました。それを参考に、perlプログラムの中に入れたのですが、
期待した結果が得られません。
（シェルスクリプトで実行すると正常に動作しています）
ちょうど「awk -F- '{print $2}'」の部分が実行されないのですが、
perlの中で、awkが実行できないなどの制限があるのでしょうか？
それとも、書き方に問題があるのでしょうか？
#! /usr/bin/perl
chdir("/home/vpopmail/domains/defaultdomain");
open(DIR_IN, "ls .qmail-* | awk -F- '{print $2}' | grep -v majordomo | grep -v owner | grep -v default | sort | uniq 2> /dev/null |");
while($file=<DIR_IN>) {
print $file;
}
