微信官网入口手机版,seocui cn,海南seo排名,python基础教程期末考试背景
在Windows上使用Perl判断文件时何种换行符时#xff0c;处理CR LF类型的换行符时#xff0c;也识别成了LF。
思路
Windows上的换行是 CRLF , Unix上是 LF , Mac CR在Windows平台使用Perl读取文件创建文件句柄时#xff0c;未对file handler设置binmode#xff0c;了…背景
在Windows上使用Perl判断文件时何种换行符时处理CR LF类型的换行符时也识别成了LF。
思路
Windows上的换行是 CRLF , Unix上是 LF , Mac CR在Windows平台使用Perl读取文件创建文件句柄时未对file handler设置binmode了解到binmode模型作用是采用非二进制读取模式时双字节换行符CR LF在读取时转换为LF,写入时将LF转换为CR LF。这对于使用双字节分隔文本文件行的操作系统(MS-DOS)至关重要,但对使用单个字符的操作系统(Unix,Mac OS,QNX)没有影响。chomp是去除每行行末的记录分隔符record separator这个分隔符的值是可以通过 perl内置变量 $/ (input record separators )来设置默认情况下Windows和Linux上 $/ 的值都是 LF
处理
所以Perl脚本在读取DOS文本时行末换行符CR LF 被自动转行成 LF 此后去判断单行记录时返回结果均是LF未能正确识别出文件的换行符类型基于此原因。修改代码如下测试
#!/usr/bin/perluse strict;my $path /export/script/perl_scripts;my files qw /a.txt b.txt/;my $newLine ;for my $f (files)
{my $fullPath sprintf %s/%s,$path,$f;# 获取首行open(INFILE,$fullPath) or die dont open this file ${fullPath};# 此函数设置在操作系统上以二进制形式读取和写入FILEHANDLE的格式。# 采用非二进制读取模式时双字节换行符CR LF在读取时转换为LF,写入时将LF转换为CR LF。# 这对于使用双字节分隔文本文件行的操作系统(MS-DOS)至关重要,但对使用单个字符的操作系统(Unix,Mac OS,QNX)没有影响。binmode(INFILE); # 设置二进制读取模式保留文件中的原始换行符my $line INFILE;close INFILE;if($line ~ \r\n){$newLine CRLF;print windows newline\n;}elsif($line ~ \n){$newLine LF;print linux newline\n;}elsif($line ~ \r){$newLine CR;print mac newline\n;}else{print is a single line without newline\n;}print ${fullPath} newline is ${newLine}\n;# 采用如下去除换行符方式替换chomp方法可在任意平台处理任意换行符类型的文件$line ~ s/[\r\n]\Z//g;}
## 运行结果如下
# linux newline
# /export/script/perl_scripts/a.txt newline is LF
# windows newline
# /export/script/perl_scripts/b.txt newline is CRLF思路源自https://blog.csdn.net/fibonaccian/article/details/42168725
