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

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT 徽章 文库 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 962 | 回复: 6

如何强制使用unix换行符? [复制链接]

论坛徽章:
0
发表于 2018-02-05 23:13 |显示全部楼层
本帖最后由 hztj2005 于 2018-02-05 23:45 编辑

use warnings;
use utf8;
open(OUT,">:encoding(utf8)","data.txt");
print OUT "append ok!\n";
得到的文件换行符是DOS的,而我需要unix换行符。        
我用的是window10下的Strawberry。

论坛徽章:
0
发表于 2018-02-06 01:02 |显示全部楼层
本帖最后由 hztj2005 于 2018-02-06 01:14 编辑

use warnings;
use utf8;
open(OUT,">:encoding(utf8)","data.txt");
binmode(OUT, ':raw');#binmode(OUT, ':unix ');
#两种方式都可以达到目的,但遇到输出汉字,DOS窗口会出现大量下面信息:
Wide character in print at test.pl line 233.
Wide character in print at test.pl line 233.

print OUT "append ok!\n";

根据下面两个帖子:
https://stackoverflow.com/questions/17596322/using-perl-win7-to-write-a-file-for-linux-and-having-only-linux-line-endings
https://stackoverflow.com/questions/25766688/say-with-n-r-newline-with-perl
https://stackoverflow.com/questions/46130170/how-to-prevent-n-to-from-being-translated-to-r-n-on-windows

论坛徽章:
0
发表于 2018-02-06 09:30 |显示全部楼层
binmode(OUT, ":unix:utf8");
阻止DOS窗口出现大量下面信息:
Wide character in print at test.pl line 233.

论坛徽章:
10
子鼠
日期:2014-10-11 16:46:482016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:5315-16赛季CBA联赛之山东
日期:2017-11-10 14:32:14
发表于 2018-02-06 09:34 |显示全部楼层
本帖最后由 523066680 于 2018-02-06 15:01 编辑

I/O layers 改成 :raw
字符串编码自己 encode,这样出来的就是自己想要的。这样就不用去记 I/O Layer 应该怎么组合,出来什么结果。

当遇到这类提示的时候
Wide character in print at test.pl line 233.

应该把对应的字符串转为编码打印出来,看看实际是什么编码。
  1. $str="......一些字符串.......";
  2. $str=~s/(.)/sprintf("%02x ", ord($1))/seg;
  3. print $str;
复制代码




论坛徽章:
0
发表于 2018-02-06 12:56 |显示全部楼层
523066680 发表于 2018-02-06 09:34
I/O layers 改成 :raw
字符串编码自己 encode,这样出来的就是自己想要的。这样就不用去记 I/O Layer 应 ...


应该是:
$str="编码";
$str=~s/(.)/sprintf("%02x ", ord($1))/seg;
print $str;
exit;

另外请教,I/O layers 改成 :raw 之后,机器内部用的是什么码?

论坛徽章:
10
子鼠
日期:2014-10-11 16:46:482016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:5315-16赛季CBA联赛之山东
日期:2017-11-10 14:32:14
发表于 2018-02-06 14:51 |显示全部楼层
本帖最后由 523066680 于 2018-02-06 15:04 编辑

回复 5# hztj2005

“编码” 还是 “中文” 不是重点,举个例子罢了。

:raw 就是原生,你把 $str dump 出来是什么码,写出去的就是什么码。

比如在utf8格式的脚本中,脚本环境看到的就是 utf8 编码,
但如果此时 use utf8,perl会对自动出现的明文 decode 为 unicode 编码,脚本环境看到的是 unicode 编码。
此时若输出字符串中含有中文字符,因为超过1个字节,所以会提示 wide character。


论坛徽章:
0
发表于 2018-02-13 16:06 |显示全部楼层
see also https://perldoc.perl.org/PerlIO.html
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP