Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

616:デフォルトの名無しさん
06/08/10 16:45:15
>>610
while (<*>) {
　if ((/\.zip$/i) or (/\.rar$/i)) {
　　open(AAA, "unrar l $_ |") || die "err";
　　$list = <AAA>;
　　close(AAA);
　}
}
こんなもんで、よろしいんじゃないですか？

次ページ

続きを表示

1を表示