如何强制使用unix换行符?

hztj2005

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

hztj2005

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

hztj2005

binmode(OUT, ":unix:utf8");
阻止DOS窗口出现大量下面信息：
Wide character in print at test.pl line 233.

523066680

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;

复制代码

hztj2005

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 之后，机器内部用的是什么码？

523066680

回复 5# hztj2005

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

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

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

zhouzhen1

see also https://perldoc.perl.org/PerlIO.html