小编Str*_*ill的帖子

我可能错过了一些东西,因为我今天开始使用Perl,所以请原谅我这是非常明显的事情.

我想从文件中加载字符串,然后逐个字符地拆分它.我做了以下事情

use strict;    
open my $fh, "<", "hello.txt" || die "Cannot open file!\n";

my $data = do { local $/ ; <$fh>};
print $data;

print  join( ', ',(split( //, $data)));

close $fh;

当我执行此脚本时,第一个print语句打印$ data没有问题,但第二个print只打印连接字符串.

Hello, world!
, 

我在带有Strawberry Perl的Windows 7机器上运行,目前我无法访问Unix/Linux机器,所以我无法在其他地方测试它.