#!/Perl/bin/perl use strict; use warnings; use Data::Dumper qw/Dumper/; use FindBin qw($Bin); use Carp; use FileHandle; use Perl6::Say; use Tk; # -- alter Test: #my $datei = "C:/Dokumente und Einstellungen/root/Eigene Dateien/UNI/Computerlinguistik Potsdam/3. Semester WS 06/Statistische maschinelle Übersetzung/src/Prämissen.txt"; #say (-e $datei ? 'existiert' : 'gibts nicht'); # -- neuer Test: my $heap = {}; $heap->{zulaessigeDateitypen} = [ ["Textdateien",[".txt"]], ["Text files", '', 'TEXT' ], ["All files", '*' ] ]; my $mw = Tk::MainWindow->new(); my $b = $mw->Button( -command => sub{ getDatei($heap, $mw); }, -text => 'drück mich!', )->pack(); sub getDatei { my $heap = shift; my $mw = shift; my $datei = $mw->getOpenFile( -filetypes => $heap->{zulaessigeDateitypen}, -initialdir => $Bin, -multiple => 0, ); if( $datei ) { say "Es wurde eine Datei angegeben: [$datei]"; if( -e $datei ) { say "Die Datei existiert"; }else{ say "die Datei existiert nicht!"; } } } # /getDatei $mw->MainLoop();