perl 和 c shell的对比

jason680

回复 9# 睫毛上的雾

没有dos2unix, 何来c shell, sed, mv, ...
   

ttcn_cu

回复 8# 睫毛上的雾


回答正确！

1. #!perl
   
2. open IN,'<','a.hta';
   
3. open OUT,'>','b.hta';
   
4. binmode OUT;
   
5. {
   
6.     local $/;
   
7.     my $x=<IN>;
   
8.     $x~~s/\x0d//g;
   
9.     print OUT $x;
   
10. }
    

复制代码

大米白面

用perl实现的dos2unix：

1. #!/usr/bin/perl -pi
   
2. undef $/;
   
3. s/\r\n/\n/g;

复制代码

睫毛上的雾

回复 12# ttcn_cu


    和我写的是一样的啊~~~