perl菜鳥問個菜的問題，高手們請多指教？

camlcr

perl中我使用TK模塊，想用那個打開路徑的命令,如下：

$ent =$frm_dir->Entry(-font => 'arial 10 bold italic',
                     -textvariable => \$save_path,
                     -width => 45,
                     -fg   => 'blue',)->pack(@p2);
$but =$frm_dir->Button(-text => "Browse ...",
                      -font => 'arial 10 bold italic',
                      -command => sub { dirDialog($mw, $ent)})->pack(@p2);

sub dirDialog {
    my $w = shift;
    my $ent = shift;
    my $dir;
    $dir = $w->chooseDirectory;
    #$dir = $w->getSaveFile( );
    if (defined $dir and $dir ne '') {
             $ent->delete(0, 'end');
             $ent->insert(0, $dir);
             $ent->xview('end');
    }
}
1;

我按上面的方法來寫，，就提示$ent出錯，，不知是啥原因？ 還請各位指點下，dirDialog如何使用？

zhlong8

把錯誤提示貼上來��？

camlcr

  郁悶，，現(xiàn)在又可以了。。

camlcr

不過還是想知道這個dirDialog是如何運(yùn)用的？

zhlong8

回復(fù) 4# camlcr


    什么怎么運(yùn)用的？