BOM이있는 CR LF 및 UTF-8 형식의 .DAT 파일이 있습니다. Perl을 사용하여 BOM없이 CR LF UTF-8 형식으로 변환하려고합니다. 현재 다음 코드를 사용하여 BOM없이 출력 파일이 생성되지만 헤더는 나머지 데이터와 함께 파일에 포함되지 않습니다. 내 요구 사항은 나머지 데이터에 포함 된 BOM 및 헤더없이 UTF-8 형식의 최종 출력 파일을 가져 오는 것입니다.
use open qw( :encoding(UTF-8) :std ); # Make UTF-8 default encoding
sub encodeWithoutBOM
{
my $src = $_[1];
my $des = $_[2];
my @array;
open(SRC,'<',$src) or die $!;
# open destination file for writing
open(DES,'>',$des) or die $!;
print("copying content from $src to $des\n");
while(<SRC>){
@array = <SRC>;
}
foreach (@array){
print DES;
}
close(SRC);
close(DES);
}
use open ':std', ':encoding(UTF-8)';
while (<>) {
s/^\N{BOM}// if $. == 1;
print;
}
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다