soramineの日記: でばっぐ
日記 by
soramine
おはようございます★
夜更かしした割には、ちゃんと眠れましたですの。夕立があったらしくて、涼しくなっていたからかな?
さて、確かに気にはなっていたのですが、@ARGV はあくまでスクリプトにわたされた引数のみを格納しているみたいなので、本体($0 で表される)自体は含まないのですね。
ところで、$argc = $#argv; とすると、最後の引数が抜けて表示されてしまいますですの。
$#array は、最後の要素のインデックスを返す=要素数より1つ小さい みたいなので、それが原因みたいです。
ということで、修正版ですの。
#! /usr/bin/perl
# show arguments perl script
# argsdisp.pl
# original c programed by BAK
# http://srad.jp/journal.pl?op=display&uid=1020
# main
{
# variables initialize
@argv = ($0, @ARGV);
$argc = @argv;
# show arguments
for(my $i=0; $i<$argc; ++$i)
{
printf("arg %2d: '%s'\n", $i, $argv[$i]);
}
}# end of main