It is my understanding that on Windows, you need to use
Win32::Unicode::File/Dir functions to manipulate unicode filenames.
If you print out (or display in Unicode-compliant way) $filename
before the stat() call, does it show the right unicode? If so, try
the Win32::Unicode alternatives.
Jeff
On Wed, Jul 31, 2013 at 9:03 AM, Scott Parrill <scott.parr...@wyo.gov> wrote:
> I've noted that the Tkx::tk__getOpenFile function does not seem to like
> high-ASCII characters in file names on Windows. (I haven't had an
> opportunity to test this on non-Windows platforms at this point.)
>
> Given the following code:
> ---------------------------------------
> use feature 'unicode_strings';
>
> use Encode qw(encode decode);
> use Data::Dumper;
> use Tkx;
>
> sub OpenFile1 {
> my $filename = Tkx::tk___getOpenFile();
> @list = stat($filename);
> print Dumper(\@list);
>
> open IN, "<", $filename or die;
> while ($line = <IN>) {
> print $line;
> }
> close IN;
> }
>
> sub OpenFile2 {
> opendir DIR, ".";
> while ($filename = readdir(DIR)) {
> next if ($filename eq '.' or $filename eq '..');
> if ($filename =~ /txt$/) {
> @list = stat($filename);
> print Dumper(\@list);
>
> open IN, "<", $filename or die;
> while ($line = <IN>) {
> print $line;
> }
> close IN;
> }
> }
> }
>
> $mw = Tkx::widget->new(".");
> $b = $mw->new_ttk__button(-text => 'Open File 1',
> -command => sub { OpenFile1() },
> );
> $b->g_pack();
>
> $b2 = $mw->new_ttk__button(-text => 'Open File 2',
> -command => sub { OpenFile2() },
> );
> $b2->g_pack();
>
> Tkx::MainLoop();
> ---------------------------------------
>
> Now create a file in the working directory, so that OpenFile2() will find
> it, with a name containing a high-ASCII character (I used "\x{0092}.txt").
> What I have found is that the OpenFile1() button will die on the "open
> IN,..." statement at line 12 and the stat() function, on line 9, returns no
> data. However, the OpenFile2() function will correctly open and read the
> file and the stat() function, on line 24, returns correct data for the file.
> Using a file with unicode charaters in the name (like "\x{0289}.txt") seems
> to work correctly in both OpenFile1() and OpenFile2().
>
> Does anyone have a suggestion on how to either get the
> Tkx::tk__getOpenFile() to return the file name correctly or how to work
> around the problem?
>
> Thanks,
> Scott
>
>
> ----------------------------------------------------------------------
> Scott Parrill
> Information Technology Specialist
> Enterprise Technology Services /
> Wyoming State Geological Survey
> State of Wyoming
> P.O. Box 1347
> Laramie, WY 82073
> Phone: 307-766-2286 x242
> Fax: 307-766-2605
> E-mail: scott.parr...@wyo.gov
> ----------------------------------------------------------------------
> E-Mail to and from me, in connection with the transaction of public
> business, is subject to the Wyoming Public Records Act and may be
> disclosed to third parties.
> ----------------------------------------------------------------------
>
>
>
>
> E-Mail to and from me, in connection with the transaction
> of public business, is subject to the Wyoming Public Records
> Act and may be disclosed to third parties.
>
