什么时候“\r\n”什么时候“\n”

ehu4ever

标题取得不好，具体情况大家看了内容就知晓了。

我在win32里用activeperl。

我的一个修改cgi代码的脚本：add_header.pl

1. 
   
2. #!C:/Perl/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $FILE = shift;
   
7. 
   
8. open(FH, "+<", $FILE)               or die "Opening: $!";
   
9. 
   
10. my @ARRAY =
    
11. grep { ! /^#!/ and ! /^use strict;/ and ! /^use warnings;/ and ! /^use CGI/ }
    
12. <FH>;
    
13. 
    
14. # change ARRAY here
    
15. seek(FH,0,0)                        or die "Seeking: $!";
    
16. 
    
17. map { print FH }
    
18. <DATA>;
    
19. 
    
20. print FH @ARRAY;
    
21. 
    
22. truncate(FH,tell(FH))               or die "Truncating: $!";
    
23. close(FH)
    
24. 
    
25. __END__
    
26. #!C:/Perl/bin/perl
    
27. use strict;
    
28. use warnings;
    
29. 
    
30. use CGI qw( :standard );
    
31. 
    
32. 
    

复制代码

某个目标cgi脚本为target.pl：

1. 
   
2. #!C:/Perl/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use CGI qw( :standard );
   
7. 
   
8. 
   
9. open (LOG, ">>D:/htdocs/errors.log")
   
10.     or die "Couldn't open log file: $!";
    
11. 
    
12. carpout(LOG);
    

复制代码

以上两个脚本都是unix格式的。
执行perl add_header.pl target.pl后，target.pl就变成了dos格式了。

我是在vim里编辑的，修改后的target.pl里出现很多的“^M”。




我把add_header.pl作如下修改后，就没有这种意外了：

1. 
   
2. #!C:/Perl/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $FILE = shift;
   
7. 
   
8. open(FH, "+<", $FILE)               or die "Opening: $!";
   
9. 
   
10. my @ARRAY =
    
11. grep { ! /^#!/ and ! /^use strict;/ and ! /^use warnings;/ and ! /^use CGI/ }
    
12. <FH>;
    
13. 
    
14. # change ARRAY here
    
15. seek(FH,0,0)                        or die "Seeking: $!";
    
16. 
    
17. map { chomp; print FH $_."\n" }
    
18. <DATA>;
    
19. 
    
20. map { chomp; print FH $_."\n" }
    
21. @ARRAY;
    
22. 
    
23. truncate(FH,tell(FH))               or die "Truncating: $!";
    
24. close(FH)
    
25. 
    
26. __END__
    
27. #!C:/Perl/bin/perl
    
28. use strict;
    
29. use warnings;
    
30. 
    
31. use CGI qw( :standard );
    
32. 
    
33. 
    

复制代码

这是什么原因啊？是perl的问题，还是vim的问题？

ehu4ever

修改后的add_header.pl还是会出现同样的问题


那个换行符到底是什么时候变的呢？

ehu4ever

是不是win32版本的perl里的print输出的都这样啊

apile

试着重新定义$\;
为\n...
windows/mac default的分隔符号是\r\n
unix like的是\n;
加上$\ = "\n";看看...

ehu4ever

原帖由 apile 于 2006-5-4 16:59 发表
试着重新定义$\;
为\n...
windows/mac default的分隔符号是\r\n
unix like的是\n;
加上$\ = "\n";看看...

以下是调整后的两个版本，原来unix式目标文档被它们处理后成了dos格式的文档。
下面的第二个脚本还会在加入的四行第行后再加个"\n"。

1. 
   
2. #!C:/Perl/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $FILE = "taglines.txt";
   
7. 
   
8. $\ = "\n";
   
9. 
   
10. open(FH, "+<", $FILE)               or die "Opening: $!";
    
11. 
    
12. my @ARRAY =
    
13. grep { ! /^#!/ and ! /^use strict;/ and ! /^use warnings;/ and ! /^use CGI/ }
    
14. <FH>;
    
15. 
    
16. # change ARRAY here
    
17. seek(FH,0,0)                        or die "Seeking: $!";
    
18. 
    
19. map { chomp; print FH $_ }
    
20. <DATA>;
    
21. 
    
22. map { chomp; print FH $_ }
    
23. @ARRAY;
    
24. 
    
25. truncate(FH,tell(FH))               or die "Truncating: $!";
    
26. close(FH)
    
27. 
    
28. __END__
    
29. #!C:/Perl/bin/perl
    
30. use strict;
    
31. use warnings;
    
32. 
    
33. use CGI qw( :standard );
    
34. 
    

复制代码

1. 
   
2. #!C:/Perl/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $FILE = "taglines.txt";
   
7. 
   
8. $\ = "\n";
   
9. 
   
10. open(FH, "+<", $FILE)               or die "Opening: $!";
    
11. 
    
12. my @ARRAY =
    
13. grep { ! /^#!/ and ! /^use strict;/ and ! /^use warnings;/ and ! /^use CGI/ }
    
14. <FH>;
    
15. 
    
16. # change ARRAY here
    
17. seek(FH,0,0)                        or die "Seeking: $!";
    
18. 
    
19. map { print FH }
    
20. <DATA>;
    
21. 
    
22. print FH @ARRAY;
    
23. 
    
24. truncate(FH,tell(FH))               or die "Truncating: $!";
    
25. close(FH)
    
26. 
    
27. __END__
    
28. #!C:/Perl/bin/perl
    
29. use strict;
    
30. use warnings;
    
31. 
    
32. use CGI qw( :standard );
    
33. 
    

复制代码