如何强制使用unix换行符?
本帖最后由 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。 本帖最后由 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
binmode(OUT, ":unix:utf8");
阻止DOS窗口出现大量下面信息：
Wide character in print at test.pl line 233. 本帖最后由 523066680 于 2018-02-06 15:01 编辑
I/O layers 改成 :raw
字符串编码自己 encode，这样出来的就是自己想要的。这样就不用去记 I/O Layer 应该怎么组合，出来什么结果。
当遇到这类提示的时候
Wide character in print at test.pl line 233.
应该把对应的字符串转为编码打印出来，看看实际是什么编码。
$str="......一些字符串.......";
$str=~s/(.)/sprintf("%02x ", ord($1))/seg;
print $str;
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 于 2018-02-06 15:04 编辑
回复 5# hztj2005
“编码” 还是 “中文” 不是重点，举个例子罢了。
:raw 就是原生，你把 $str dump 出来是什么码，写出去的就是什么码。
比如在utf8格式的脚本中，脚本环境看到的就是 utf8 编码，
但如果此时 use utf8，perl会对自动出现的明文 decode 为 unicode 编码，脚本环境看到的是 unicode 编码。
此时若输出字符串中含有中文字符，因为超过1个字节，所以会提示 wide character。
see also https://perldoc.perl.org/PerlIO.html
页:
[1]