如何用perl实现文件的格式由dos格式转换为unix格式

发布网友发布时间：2022-04-18 23:49

共2个回答

懂视网时间：2022-04-19 04:10

热心网友时间：2022-04-19 01:18

第一步把文件读入到数组里面，无论是DOS还是UNIX文件，perl都能正确读入

第二步对数组进行处理：DOS的行末是\r\n，UNIX的行末是\n，就是DOS文件每一行要多一个回车字符，所有的转换就是增删\t

第三步把数组写入文件

例子代码(DOS转UNIX)：
open(F1,'dos.txt');
open(F2,'>unix.txt');
while($s=<F1>){
$s =~ s/\r//;
print F1 $s;
}
close(F2);
close(F1);

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com