忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 1224 | 回复: 0

已解决:active perl 中 Tie::File 读取文件如何指定换行符 [复制链接]

论坛徽章:
0
发表于 2014-10-07 13:15 |显示全部楼层
本帖最后由 antonym55 于 2014-10-07 13:33 编辑

文件比较大,不可能先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");
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP