【求助】Prima::ChDirDialog怎樣獲取文件夾的路徑

stanley_tam

請(qǐng)教怎樣獲得選中的文件夾名字？
居然沒(méi)有可用的方法，求大神指點(diǎn){:3_203:}

1. 
   
2. my $open = Prima::ChDirDialog->new();
   
3. $open->execute;
   

復(fù)制代碼

上面這個(gè)貌似是用來(lái)change directory的。。。用途不祥。
現(xiàn)在問(wèn)題是:有沒(méi)有哪個(gè)prima widget是可以獲取directory？

pitonas

大牛，實(shí)在不好意思，不知道什么原因？
為什么獲得文件夾名字？獲得文件夾名字有哪些用處？

stanley_tam

我需要選定文件夾，然后處理文件夾里面的文件。
Prima::ChDirDialog這個(gè)在cpan說(shuō)是可以select directory interactively，我以為功能類似Tk中的Tk::chooseDirectory.原代碼里貌似啥事也沒(méi)干。。。
我現(xiàn)在的方法是用Prima::FileDialog選定其中的一個(gè)文件，截取dirname。。。

所以想問(wèn)下大家有沒(méi)有研究過(guò)Prima的，指點(diǎn)一下{:3_199:}


話說(shuō)perl的GUI略揪心。。。很多GUI模塊不是裝不上就是很久遠(yuǎn)了，不好用。
Tk貌似就沒(méi)法多線程，activeperl的ppm里面5.14以后就沒(méi)有Tk了。

pitonas

是不是?[code]
my $open = Prima::OpenDialog-> new(
                filter => [
                        ['Perl modules' => '*.pm'],
                        ['All' => '*']
                ]
        );
print $open-> fileName, " is to be opened\n" if $open-> execute;
[/code

http://search.cpan.org/~karasik/Prima-1.37/Prima/FileDialog.pm

stanley_tam

被你發(fā)現(xiàn)了，哈哈回復(fù) 4# pitonas