当前位置：首页 → 问答吧 → perl小白问个弱问题！

perl小白问个弱问题！

时间：2011-04-11

来源：互联网

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


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

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

作者: stephen_yin 发布时间: 2011-04-11

Perl code

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

作者: will2ni 发布时间: 2011-04-11

2.perldoc -f getc

作者: will2ni 发布时间: 2011-04-11

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

Perl code

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

作者: will2ni 发布时间: 2011-04-11

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

作者: jiaojianbo88 发布时间: 2011-04-11

perl小白问个弱问题！

热门阅读

热门下载