PerlTk File Input

paul99 has asked for the wisdom of the Perl Monks concerning the following question:

When reading in files in perl i have used in the past something along the lines:

$data = "c:\file.txt";
open DATA, $data or die "failed to open";
while (<DATA>) (
  .....some code etc
close DATA;
[download]

As a beginner to PerlTk, I want to create an entry widget to get the user to enter "c:\file.txt" and assign it to $data variable, so that I can then run my perl routines.
Any help appreciated.

Edited by Chady -- code tags.

Comment on PerlTk File Input Download Code

Replies are listed 'Best First'.
Re: PerlTk File Input by Joost (Canon) on Jul 19, 2004 at 15:53 UTC
Use `my $filename = $widget->getOpenFile( ARGS ); # or my $filename = $widget->getSaveFile( ARGS );` [download] if you want a filename for reading or writing respectively. This will open a standard Tk file-dialog window that allows the user to select or type a filename/path. More info in Tk::getOpenFile. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re: PerlTk File Input by mawe (Hermit) on Jul 19, 2004 at 18:47 UTC
Hi! It is better done as Joost mentioned, but if you really want to use an entry-widget, you could do it like this: `use Tk; my $file; my $top = new MainWindow; my $ent = $top->Entry(-textvariable=>\$file)->pack(); my $but = $top->Button(-text=>"ShowFile",-command=>\&sub_file)->pack() +; MainLoop(); sub sub_file { print $file; # or whatever }` [download] Hope this helps, mawe	[reply] [d/l]
Re^2: PerlTk File Input by eserte (Deacon) on Jul 20, 2004 at 09:15 UTC
Or even use Tk::PathEntry instead of Entry. This one lets you use the <Tab> key for completion as in modern shells.	[reply]
Re^2: PerlTk File Input by paul99 (Initiate) on Jul 22, 2004 at 09:35 UTC
Thx,this works fine.	[reply]