Perlについての質問箱 64箱目

Perlについての質問箱 ..

137:デフォルトの名無しさん
19/11/17 00:22:07.56 +/PgA3gU.net
そもそもファイルをopenした時点で、ファイル名は自明だろ、、、
<>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、
while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof }
他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの
話だし。

次ページ

続きを表示

1を表示