文字列の配列を受け渡し

明解Ｃ言語 入門編 > 9. 文字列の基本 >

文字列の配列を受け渡し

Perl

sub put_strary
{
    my ($st, $n) = @_;
    for (0..$$n - 1)
    {
        print "st[$_] = \"$$st[$_]\"\n";
    }
}

@cs = ("Turbo", "NA", "DOHC");
$n = 3;
&put_strary(\@cs, \$n);

実行結果

L:\>perl lesson_09_075.pl

st[0] = "Turbo"

st[1] = "NA"

st[2] = "DOHC"