in reply to convert a string(which contains the contents of a file) into UTF-8 encoding

open(my $fh_in, '<:encoding(iso-8859-1)', $qfn_in)
    or die("Can't open \"$qfn_in\": $!\n");

open(my $fh_out, '>:encoding(UTF-8)', $qfn_out)
    or die("Can't create \"$qfn_out\": $!\n");

print $fh_out $_ while <$fh_in>;

[download]
  • Comment on Re: convert a string(which contains the contents of a file) into UTF-8 encoding
  • Download Code

Replies are listed 'Best First'.
Re^2: convert a string(which contains the contents of a file) into UTF-8 encoding
by Anonymous Monk on Sep 29, 2009 at 23:04 UTC
    Hi Ikegami, Many thanks for the reply. Could you please explain me how to use the above code. Actually i am very new to perl. Means which module i need to use for the above code to execute
[reply]
      No modules needed. Just put the name of the input file in $qfn_in and the name of the output file in $qfn_out 
      #!/usr/bin/perl

use strict;
use warnings;

@ARGV == 2
   or die("usage: latin_to_utf8 infile outfile\n");

my ($qfn_in, $qfn_out) = @ARGV;

open(my $fh_in, '<:encoding(iso-8859-1)', $qfn_in)
    or die("Can't open \"$qfn_in\": $!\n");

open(my $fh_out, '>:encoding(UTF-8)', $qfn_out)
    or die("Can't create \"$qfn_out\": $!\n");

print $fh_out $_ while <$fh_in>;

      [download]
[reply]
[d/l]
[select]
        Hi , Actually the above code is working fine in perl 5.6 and it is not able to convert the copyright and trademark signal into utf-8 in perl 5.8 . Please advice. Regards kamalakar
[reply]

In Section Seekers of Perl Wisdom