in reply to Use of Unicode Encodings in perl
in thread %p issue on perl script

Glad I could help. As I said before, you should post this second problem in a new question. This one won't get the attention you need to answer it. I can only point you to the documentation: perlunicode

print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))

Replies are listed 'Best First'.
Re^2: Use of Unicode Encodings in perl
by Sathish (Initiate) on Sep 16, 2009 at 16:44 UTC

    Hi,

    Some how i solved this issue. I set the font to that spread sheet as below and now i dont have any issue in printing non-english strings.

    $Sheet2->Range("A100:Z100")->Font->{FontStyle}="Arial Unicode MS";

    But again i stuck up with another issue on printing the string into a spreadsheet.

    I am printing a string into an spreadsheet with an row input from an for loop. Below is the code snippet of an for loop for better understanding.

    for($i=0;$i<$out_size;$i++) { $Sheet2 -> Range("A$i") -> {'Value'} = $gm_out[$i][0]; $Sheet2 -> Range("B$i") -> {'Value'} = $gm_out[$i][1]; $Sheet2 -> Range("C$i") -> {'Value'} = $gm_out[$i][2]; $Sheet2 -> Range("D$i") -> {'Value'} = $gm_out[$i][3]; }

    Here the problem comes from an "Range". I am getting an error when i run this program an error pointing to "Range".

    Please suggest me an idea on how to input the "Range" with an variable size so that i can print an array $gm_out$ix into the variable ranges of ROW in the columns A, B, C & D.

    Please provide your help

      Here the problem comes from an "Range". I am getting an error when i run this program an error pointing to "Range".

      What error?!

        Below is the error which i pointed out for the range.

        Win32::OLE(0.1707) error 0x800a03ec in METHOD/PROPERTYGET "Range" at Nissan_NVL_FB_Display_WINDOWS.pl +line 170

        Also i tried by extracting the cell value seprately and feed it into the "Range" like below. But still it ends up with same error as mentioned above.

        for($i=0;$i<$out_size;$i++) { $value = "A".$i; $value =~ s/(^\s+|\s+$)//g; printf "tsathish %s\n", $value; $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][0]; $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][1]; $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][2]; $Sheet2 -> Range($value) -> {'Value'} = $gm_out[$i][3]; } }