请教一个跨平台的CRLF问题

horacez

Web服务器Apache，运行于MacOX下。
CGI脚本运行生成的文件在Windows记事本中打开会出现换行错误。（这到不奇怪）

遂插入一段子程序到perl脚本中进行CRLF的转换，代码如下：

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. die "\nInput file name missing.\nUsage: perl unix2dos.v1.pl input_file_name\n" unless $ARGV[0];
   
6. 
   
7. unix2dos($ARGV[0]);
   
8. 
   
9. sub unix2dos
   
10. {
    
11. my $inputfile = $_[0];
    
12. open (INPUT, "$inputfile") or die "Can't open input file: $!\n";
    
13. my $outputfile = "DOS_".$inputfile;
    
14. unlink $outputfile if -e $outputfile;
    
15. open (OUTPUT, ">>$outputfile") or die "Can't open output file: $!\n";
    
16. while (my $line = <INPUT>){
    
17.         $line =~ s/$/\r/;
    
18.         print OUTPUT $line;
    
19. }
    
20. close OUTPUT;
    
21. close INPUT;
    
22. print "\nOutput file: $outputfile\n";
    
23. }
    

复制代码

该段程序在MacOX终端的bash，tcsh中均可成功将UNIX文件转换为DOS格式，但一旦插入到CGI脚本中，转换出来的就还是UNIX格式，实在不明白。

[ 本帖最后由 horacez 于 2006-3-11 23:04 编辑 ]

flw

binmode your STDOUT first.

horacez

谢谢flw版主，意思我明白了。

我估计原因是：在CGI脚本中运行和直接在终端中运行其环境有不同。
刚刚先采取了一个折中的办法，就是仍将这段代码单独存为一个文件，只是在脚本中通过system函数调用这个文件来实现格式转换，结果是成功的。

等下再试试flw版主的办法。