明解Ｃ言語 入門編 > 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