2009-12-09 13 views
3

Comment ouvrir une boîte de dialogue de sélection de dossier en Perl?Comment présenter une boîte de dialogue de sélection de dossier ouvert dans Perl?

+0

Quelle boîte à outils graphique utilisez-vous? (Tk, Win32 :: GUI, wxPerl, etc.) –

+0

Voter pour fermer comme "pas une vraie question" puisque Greg ne semble pas disposé à nous donner plus d'information. – innaM

+0

@Manni: C'est peut-être le cas, mais cela peut être une question utile, car il existe maintenant des exemples de réponses pour Tk et Win32 :: GUI ... –

Répondre

3

Vous souhaiterez peut-être vérifier les liaisons graphiques dans wxPerl.

7

Dépend du système d'interface graphique que vous utilisez, et peut-être de la plate-forme. Par exemple, sous Windows et en utilisant Win32::GUI, vous pouvez utiliser GetOpenFileName:

# $main is your main window... 
$my_file = $main->GetOpenFileName(
    -title => 'Select a file...', 
    -file => 'default.file', 
); 
7

La plupart portable (au moins par rapport à others):

use Tk; 
my $dir = Tk::MainWindow->new->chooseDirectory; 

Bien sûr, si vous utilisez réellement Tk dans le reste de votre programme, vous devez appeler chooseDirectory sur un widget parent approprié au lieu de celui construit et détruit ici.