in reply to Write utf-8 to file?

Tell the form that you like the data in utf-8 with the accept_charset attribute. At best deliver the page with the form already in utf-8 since some browsers send the data back in the charset they receive the data. Now save the file with open my $fh, ">:utf8", $filename or die $!; read it in with open my $fh, "<:utf8", $filename or die $!;
Boris

Replies are listed 'Best First'.
Re: Write utf-8 to file?
by einerwitzen (Sexton) on Feb 18, 2004 at 23:30 UTC
    I used 
    open(PAGE, "<:utf8", "$news");
@HTML = <PAGE>;
print escapeHTML(join '', @HTML);
close PAGE;

    [download]
    And it doesn't work, @HTML is empty. Maybe just a syntax error but i wouldnt know!
[reply]
[d/l]
      Im sure $news is not found or you have no permissions to read the file. try 
        open(PAGE, "<:utf8", "$news") or die "OPEN $news failed ($!)";

      [download]
      and look into your errorlog file.
      Boris
[reply]
[d/l]
[select]
Re: Re: Write utf-8 to file?
by einerwitzen (Sexton) on Feb 19, 2004 at 00:08 UTC
    Ok i realized that it wasn't working because it wasn't saving properly in the utf8 format.
    open(PAGE, ">:utf8", "$news");
print PAGE @cont;
close(PAGE);

    [download]
    isn't working right. ???
[reply]
[d/l]
      It works fine, but only with perl 5.8. You should really check for errors. And I prefere my vars for the filehandle. It is good practice and you can yse them to. 
        open (my $page, ">:utf8", $news) or die $!;
  print $page @xxxx;
  close $page;

      [download]
      Boris
[reply]
[d/l]
      I had checked for errors, but when it didn't work it didn't print errors either so i took it out to make it as simple as possible. Yet another problem then, What about for perl 5.6.1 it is what my host has installed.
[reply]

In Section Seekers of Perl Wisdom