求教一个问题：perl语言，怎么把字符串每一个字符读到数组里 使用标准输入获得字符串

Question

求教一个问题：perl语言，怎么把字符串每一个字符读到数组里

使用标准输入获得字符串
my $string=<STDIN>;
我希望可以把$string里的字符赋值到一个数组中，@array
e.g. $string="China."
$array[0]='C', ,,, 诸如此类

谢谢

Answer 1

my $string = "China";
my @array = split //, $string;
print "$_ $/" foreach @array;