ワイルドカードの処理(win/dos)

perlでワイルドカードの処理をするにはどうしたらよいでしょうか？

具体的には、ワイルドカードに該当したファイル分、
下記の処理をしたいのですが。

OSはWindows(DOSプロンプト)です。
(Windows(MS-DOS)はUNIXと違って、
ワイルドカードの展開をアプリケーション任せにしているようです。)
--
while (<>) {
if ($. == 2) {
print;
last;
}
}
--

No.1 ベストアンサー 回答者： osamuy 回答日時： 2002/08/16 03:41

Command.comのコマンドFORでperlを動かすってのは：

> FOR %m IN (*.txt) DO perl -ne "if ( $.==2 ){print;exit}" %m

> FOR /?
でヘルプが出ます。

自力で展開するなら、
@files = map { glob( $_ ) } @ARGV;
で、@filesにファイル名が入ります。
要Perl5以降。

この回答へのお礼

お返事が遅くなり申し訳ございません。

Perl自力でやる方法を採用しました。
どうもありがとうございます。

大変助かりました。どうもありがとうございました。

さらに参考：
http://homepage2.nifty.com/kipp/perl/jperl/

お礼日時：2002/09/04 09:13