Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: convert a Unicode file to Ansi, using filehandle..

by markuhs (Scribe)
on Nov 06, 2009 at 07:08 UTC ( #805417=note: print w/replies, xml ) Need Help??

in reply to convert a Unicode file to Ansi, using filehandle..

Hi, welcome to perlmonks!

First of all: use strict; and use warnings; is great!
This would tell you, that "Global symbol "$Temp" requires explicit package name".
Second: use autodie; or add another or die $!; to line 4.

Why do you open the file twice? You should at least close the filehandle before opening it again.
Closing it before writing to it, does not work either!
Oh, now I understand!!! You use the same filehandle for input and output! That will never work, use two different ones...
open (FILE, "<:encoding(UTF-8)", $Profile) or die $!; my @Lines = <FILE>; close(FILE); open (FILE2, ">", $Profile) or die $!;
and the end...
print FILE2 "$Line"; } close(FILE2);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://805417]
[ambrus]: does this work?
[Corion]: :D

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2017-10-19 12:36 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (252 votes). Check out past polls.