SathishV
New User
Jul 17, 2010, 5:05 AM
Post #1 of 1
(9892 views)
|
|
Perl Encoding UCS2Little Endian
|
Can't Post
|
|
Hello Friends
I've a file with Encoding format UCS2 Little ENDIAN
I need to Read and do some replacements and have to write that file in the same format.
I wrote the code but not working, please correct it
open EN, "<:encoding(ucs2)", "E\:\CL1966L0402DA0130010\.0001\.3d";
$bbox_my_tx1 = <EN>;
close(EN);
$bbox_my_tx1=~s/\$<port l/<EN>\$<port l/g;
print "$bbox_my_tx1\n";
open EN, ">:encoding(ucs2)", "E\:\CL1966L0402DA0130010\.0001\_out\.3d";
print EN $bbox_my_tx1;
close(EN);
Please Do the Needful
Thanks & Regards
Sathish V
|
MAIN
SEARCH
WHO'S 
LOG 