Re: how to output file in Unicode

[philiprbrenan]

in reply to how to output file in Unicode

sub readUnicode($)
 {my ($f) = @_;
  open(my $F, "<:encoding(UTF-8)", $f) or die "Cannot open $f for unic
+ode input";
  local $/ = undef;
  <$F>;
 }

sub writeUnicode($$)
 {my ($f, $s) = @_;
  if ($f =~ /\A(.+[\\\/])/)
   {my $d = $1;
    makePath($d);
   }    
  open(my $F, ">:encoding(UTF-8)", $f) or die "Cannot open $f";
  say {$F} $s;
 }

[anakin30]

apreciate if you could explain below lines and what it does?

{my ($f, $s) = @_; can you explain what this line does?

{my $d = $1; can you explain what this line does?

say {$F} $s; can you explain what this line does?

[Anonymous Monk]

Read perlintro (and say) and you'll know

[philiprbrenan]

sub writeUnicode($$)
 {my ($f, $s) = @_;

Assigns parameter 1 to the subroutine from @_ to $f and parameter 2 to $s. One could also write my $f = $_[0]; my $s = $_1;

  if ($f =~ /\A(.+[\\\/])/)
   {my $d = $1;
    makePath($d);
   }

Extracts the path component of the file name and places it in variable $d so that we can make a directory for the output file. If you know that the output directory exists, then there is no need for this code. The assignment to $d is somewhat verbose, one could use makePath($1) to use the first expression captured by the regular expression in the if statement directly. The regular expression captures the text up to the last \ or / in the file name and uses that as the path component.

  say {$F} $s;

Writes the contents of $s to the file whose handle is in $F. The file is automatically closed at the end of the block containing my $F. This statement is an alternative to $F->say($s);

[anakin30]

I have written this script below,

the output file generated but i still seeing, German "Umlaut" in the csv output file. Example : Björn

why the csv output file is not encoded into encoding(UTF-8)??, am i missed any steps here!!!!

#!/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 fil
+ename for input: $!";
while (<INPUT>) {
    s/"//g;
    $replace .= $_;}
close INPUT or die "Cannot close filename: $!";
open (OUTPUT, ">:encoding(UTF-8)",$outputfile2) or die "Cannot open fi
+lename for output: $!";
print OUTPUT $replace;
close OUTPUT or die "Cannot close filename: $!";