Dear Perl Monks,

I am working on a project wherein, for starters, I simply want to read a Greek file formatted in Unicode (UTF-8) and write it to another file. (Later I will manipulate the data.)

I use the Ultra-Edit editor (on an Acer laptop running Windows 7) and the Greek file is readable in it.

The input file is named "WE_EX.txt" and the output file is named "WE_EX.out."

The code below appears to open both the input and output files but then goes into an infinite loop...

Any help you may provide will be so greatly appreciated!

All best wishes, Patricia Walters


#!
# Simply read Greek file (WE_EX.txt) saved in 
#   UNICODE (UTF-8) format and
#   write it to output file (WE_EX.out)
#
use strict;
use warnings;
#
open IN, '<:encoding(UTF-8)', "WE_EX.txt"
    or die "Can't open file WE_EX.txt for reading: $!";
#
open OUT, ">WE_EX.out"
    or die "Can't open file WE_EX.out for writing: $!";
#
#
my @string;
while (<>) {
    push @string, $_;
}
print OUT "@string";
close IN;
close OUT;

[download]

In reply to How to read in and write out Unicode (UTF-8) file in Greek by plwtoday

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.