パスワードを忘れた? アカウント作成
745488 journal

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

typodupeerror

開いた括弧は必ず閉じる -- あるプログラマー

読み込み中...