http://www.perlmonks.org?node_id=100887


in reply to Displaying text file with perl/tk

This piece of code does the job for you:
#!/usr/bin/perl -w use strict; use Tk; #First create a new mainwindow my $mainwindow = new Tk::MainWindow(); #Then create a textwidget (called 'Scrolled', with subtype 'Text") my $text = $mainwindow->Scrolled("Text", -scrollbars => 'se')->pack(-e +xpand => 1, -fill => 'both'); # Open the file open(F, "<$ARGV[0]") || die "can't open $ARGV[0]: $!\n\n"; while(<F>) { # insert each line to the $text widget $text->insert('end', $_); } # close the file close(F); # create a closebutton my $button = $mainwindow->Button(-text => "close", -command => sub {$m +ainwindow->destroy()})->pack(); # start the main loop! MainLoop;


Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory