note
anakin30
<p> I have written this script below, </p>
<p>the output file generated but i still seeing, German "Umlaut" in the csv output file. Example : Björn </p>
<p>why the csv output file is not encoded into encoding(UTF-8)??, am i missed any steps here!!!!</p>
<code>#!/usr/bin/perl
use Net::LDAP;
use Encode;
$outputfile = 'C:\Meta\MDS\data\out\LicMan1.csv';
$outputfile2 = 'C:\Meta\MDS\data\out\LicMan.csv';
open (INPUT, "<:encoding(UTF-8)", $outputfile) or die "Cannot open filename for input: $!";
while (<INPUT>) {
s/"//g;
$replace .= $_;}
close INPUT or die "Cannot close filename: $!";
open (OUTPUT, ">:encoding(UTF-8)",$outputfile2) or die "Cannot open filename for output: $!";
print OUTPUT $replace;
close OUTPUT or die "Cannot close filename: $!"; </code>
989377
989563