將 UTF-8 Unix LF.dat 文件轉換為 UTF-8 編碼的 CR LF.dat 文件使用 Z0114AD06D728F198EFA434

Question

I have an input.dat file with Unix LF encoding, I want my output file to be Windows CR LF with UTF-8 encoding using Perl. 目前這是我的代碼的外觀。 如何將 CR 添加到文件中的現有 LF 中？

sub encodeUTF8 {
    my $ProcVars = $_[0];
    my $src = $_[1];
    my $des = $_[2];
    # open source file for reading
    open(SRC,'<',$src) or die $!;
    # open destination file for writing
    open(DES,'>',$des) or die $!;
    binmode DES;
    print("copying content from $src to $des\n");
    while (<SRC>) {
        s/^\N{BOM}// if $. == 1;
        print DES;
    }
    close(SRC);
    close(DES);  
}

Answer 1

在binmode中指定:crlf crlf 層

binmode DES, ':crlf';

print不能只帶句柄，它還需要知道要打印什么：

 print DES $_;