已解决：active perl 中 Tie::File 读取文件如何指定换行符

antonym55

文件比较大，不可能先unix2dos

实际上只是要随机读取指定的行。

在windows 中使用 tie @array,'Tie::File',$filename or die;

如果是Dos的换行\r\n就OK,

但是如果是Unix的换行\n 就读成了一行@array[0]


有没办法让他自己识别换行，或者指定换行符?

谢谢！


搞定了， recsep => '\n' 用了单引号

tie (@array, 'Tie::File', $filename, recsep => "\n");