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

soramine (1131) の日記

2001 年 07 月 25 日
午前 10:19

でばっぐ

 おはようございます★
 夜更かしした割には、ちゃんと眠れましたですの。夕立があったらしくて、涼しくなっていたからかな?

 さて、確かに気にはなっていたのですが、@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

あと、僕は馬鹿なことをするのは嫌いですよ (わざとやるとき以外は)。-- Larry Wall

処理中...