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

Question

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

谢谢

Answer 1

具体函数我不清楚是否可以直接实现，但是可以通过变相实现。

#!/usr/bin/perl -w
use strict;
my $string = "China";
my @Array;
for(my $i = 0; $i < length($string); $i++){
$Array[$i] = substr($string,$i,1);
}

for(my $i = 0; $i < @Array; $i++){
print "$Array[$i]\n";
}

其中：
for(my $i = 0; $i < length($string); $i++){
$Array[$i] = substr($string,$i,1);
}

是根据字符串长度，将字符逐个存入到数组中。

for(my $i = 0; $i < @Array; $i++){
print "$Array[$i]\n";
}
这个是输出字符串内容，看是否成功！

测试结果是可以的

Answer 2

@array = split //,$string;得到字符

@array=unpack("C*",$string)得到字符ASCII

Answer 3

use 5.16.0;
use strict;

my $string=<STDIN>;
my @arr = split('', $string);
for my $var(@arr){
say $var;
}