#!/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();