2012-03-08T00:12:19 hlubenow

Vielleicht kannst/willst Du ja Tk doch noch nachinstallieren. Schwer zu sagen, ob Tk oder Tkx die Zukunft ist.

2012-03-08T00:12:19 hlubenow

Edit: Wahrscheinlich ist Tk::FileDialog sogar noch etwas neuer und komfortabler als das hier verwendete Tk::FileSelect.

1
2
3
4
5
6
7

use strict;
use warnings;
use Tk;

my $infile = $mw->getOpenFile;
exit unless $infile;    # oder return (in einer sub)
open( my $in, '<', $infile ) or die("can't open $infile: $!");