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<https://uwmail.uwyo.edu/owa/redir.aspx?C=4dc4ce62e583463fb8ad86380018935b&URL=mailto%3aScott.Parrill%40wyo.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.
