At 6:13 pm -0800 20/11/03, Neelima Bandla wrote:
I am trying to create a japanese file on a windows
machine, Below is the code I am using to do so.
my @array = (0x5f89 ,0x623f,0x5f89,0x623f);
my $str1 = pack("U*", @array);
open(FD, ">$filepath\\$str1") or die( "$!");
close FD;
I needed to change "$filepath\\$str1" to "$filepath\$str1" to get the right filename but otherwise no problems (Perl 5.8.2, Mac OS 10.3)
I have uploaded my machine with japanese fonts, when I create manually from the windows machine, I see the exact japanese font that the hex should show.
But when I use the above code, I am seeing a different file name. I am not sure why I am seeing this. Can someone help me with this.
What happens if you do this:
## chdir "$ENV{HOME}/temp" ; ## or whatever... $f = "\x{5f89}\x{623f}\x{5f89}\x{623f}"; open F, ">$f" or die $! ;
Result: åæåæ
JD
