Re^3: Perl Encoding/Decoding Doubt: From a Novice

My bad. I was thinking of Linux. How about this:

#!/usr/bin/perl -l

use warnings;
use strict;
use Encode qw(encode_utf8);

$| = 1;

binmode STDIN, ":encoding(UTF-8)";

my $str = 'Çirçös';
$str = encode_utf8($str);
print "$str";

my $str1 = 'Çirçös&#151;'; 
$str1 = encode_utf8($str1);

binmode STDOUT, ":encoding(UTF-8)";
print "$str1";
[download]

I'm on Fedora, so I'm flying blind. Does that help?

Comment on Re^3: Perl Encoding/Decoding Doubt: From a Novice Download Code

Replies are listed 'Best First'.
Re^4: Perl Encoding/Decoding Doubt: From a Novice by Anonymous Monk on Jul 05, 2013 at 04:23 UTC
It still doesn't work. I tried the below coding as well, but to no avail. `use open ':std' => ':locale'; # Error: Cannot figure out an encoding to use` Windows doesn't seem to accept the above coding as well. Now, should I go about changing those characters to HTML entities in Microsoft Word itself and then try doing the conversion, in which case there shouldn't be any problem. But I am still hopeful there is another way	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Perl Encoding/Decoding Doubt: From a Novice
by Anonymous Monk on Jul 05, 2013 at 04:23 UTC

It still doesn't work.

I tried the below coding as well, but to no avail.

use open ':std' => ':locale'; # Error: Cannot figure out an encoding to use

Windows doesn't seem to accept the above coding as well.

Now, should I go about changing those characters to HTML entities in Microsoft Word itself and then try doing the conversion, in which case there shouldn't be any problem.

But I am still hopeful there is another way

[reply]
[d/l]