This comment is reply for 5003 匿名: Perl の場合@ARGVに入っています...(コマンドライン引数の取得). Go to thread root.
dankogai #5017(2007/12/27 16:27 GMT) [ Perl ] Rating1/1=1.00
ちなみにARGVは、@ARGVをすべてファイル名と見なしてオープンした際のファイルハンドル。<>は<ARGV>を略記したものです。
ARGV
@ARGV
<>
<ARGV>
$ARGVは、ARGVをイテレートしている際の実際のファイル名。$.で現在の行数も取れます。
$ARGV
$.
以下、サンプルプログラムはこの点をデモります。
詳しくは
perldoc perlvar
で。
Dan the Perl Monger
1 2 3 4 5 6 7 8 9
#!/usr/local/bin/perl use strict; use warnings; while(my $line = <ARGV>){ printf "%12s%4d:%s", $ARGV, $., $line; } # 以下のようにして一行にできちゃう! perl -ple '$_=sprintf "%12s%4d:%s", $ARGV, $., $_' argv.pl
Rating1/1=1.00-0+
[ reply ]
dankogai
#5017()
[
Perl
]
Rating1/1=1.00
ちなみに
ARGVは、@ARGVをすべてファイル名と見なしてオープンした際のファイルハンドル。<>は<ARGV>を略記したものです。$ARGVは、ARGVをイテレートしている際の実際のファイル名。$.で現在の行数も取れます。以下、サンプルプログラムはこの点をデモります。
詳しくは
perldoc perlvar
で。
Dan the Perl Monger
Rating1/1=1.00-0+