chooseDirectory 中文路劲问题

tdb5881

如主题所述，perl如何解决中文路径问题！如下代码，选择路径后只要中文路径就出现乱码！文件头已经定义过  use encoding 'euc_cn';
     my $path_dir = $path->chooseDirectory( -initialdir => 'd:/disk/$job_name/' );
        if ( $path_dir eq "" ) {
                $input_path = $input_path;
        } else {
                $input_path = $path_dir;
        }
        $path->configure();
        $lb_layer1->delete(0,'end');
        opendir (DIRHANDLE, $input_path) or die "can not open it : $!";
        my @layer_all = readdir DIRHANDLE;
        close DIRHANDLE;
        $lb_layer1->insert("end",@layer_all);

asthman

use utf8;
试试吧