文字列の走査

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

文字列の走査

Perl

sub put_string
{
    my ($str) = @_;

    foreach $val(split(//, $str))
    {
        print $val;
    }
}

$str = "ABC";
&put_string($str);
print "\n";

実行結果

L:\>perl lesson_09_073.pl

ABC