读取文件遇到换行符的问题

perljoker

我现在需要读取一个文本文件，里面都是连续的字符
但是他固定长度就会换行，比如可能56个字符换行
我现在要每34个字符读取为一个字符串
我用read（）遇到换行符就操作出错
能否有函数或者什么方法来解决

文件很大，如果用perl先手动删除换行符貌似效率太低
请教其他方法

perljoker

不小心一个错误打印出如下图形：
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
N
NNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NN
NNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNN
NNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNN
NNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNN
NNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNN
NNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNN
NNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNN
NNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNN
NNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNN
NNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNN
NNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNN
NNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNN
NNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNN
NNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNN
NNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNN
NNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNN
NNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNN
NNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNN
NNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNN
NNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNN
NNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNN
NNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNN
NNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNN
NNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNN
NNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNN
NNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNN
NNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNN
NN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNN
N
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN

谁来帮忙解决我的问题啊，提供个思路也好

royalzhang

$residue = '';
每读取一行：
    chomp;
    $_ .= $residue;
    不断地截取34个字符备用，直到剩下的小于34个，记为 $residue 。
end

[ 本帖最后由 royalzhang 于 2007-8-24 11:20 编辑 ]