BAKの日記: ダウト
日記 by
BAK
ここの perl プログラム.
私の C のプログラムの方での argv[0] 相当の引数が抜けてしまってます. 同じような動作にするのなら,こんな感じかな.
# variables initialize
$i = 0;
@argv = ( $0, @ARGV );
$argc = $#argv;
# show arguments
for($i=0; $i < $argc; ++$i)
{
printf("arg %2d: '%s'\n", $i, $argv[$i]);
}