perl小白问个弱问题！

[屎带芬]

读了一个文件，怎么才能一个字符一个字符的取出来。

#!/usr/bin/perl
open(INFILE, "<d:\\En.txt") || die "Cann't open the file!";
@Content = <INFILE>;

for (@Content)
{
	print;#这里只会输出每行的字符串
#怎样才能把整个文件里的所有字符分开，存放在一个数组里？？？
}

[m00z]

grep { push @Content, split //} grep {chomp} <INFILE>;
print "$_\n" foreach (@Content)

[m00z]

2.perldoc -f getc

[m00z]

[Quote=引用 2 楼 will2ni 的回复:]
2.perldoc -f getc
[/Quote]

while (my $c = getc(INFILE) ) {
	next if $c =~ /\n/;
    print "$c\n";
}

[jiaojianbo88]

把读出来行再拆分放另外一个数组里

[jiaojianbo88]

让你用比较老土的办法不就没事啦，呵呵

[屎带芬]

[Quote=引用 5 楼 yizhiniu_xuyw 的回复:]

也可以这样：
Perl code

while (my $c = getc(INFILE) ) {
chomp $c;
print "$c\n";
}
[/Quote]

[Quote=引用 3 楼 will2ni 的回复:]

引用 2 楼 will2ni 的回复:
2.perldoc -f getc

Perl code
while (my $c = getc(INFILE) ) {
next if $c =~ /\n/;
print "$c\n";
}
[/Quote]
大哥，取到“0”就自己停了，什么情况？？

[一只牛_007]

也可以这样：

while (my $c = getc(INFILE) ) {
    chomp $c;
    print "$c\n";
}