Click here to Skip to main content
13,254,077 members (59,833 online)
Click here to Skip to main content
Add your own
alternative version


5 bookmarked
Posted 4 Feb 2004

Simple front end using Perl/Tk

, 4 Feb 2004
Rate this:
Please Sign up or sign in to vote.
Simple front end using Perl/Tk.


This article shows how to use Perl to write a simple graphical user interface.


Install the latest version of Perl and Tk from the ActiveState download page.

Using the code

We begin by declaring the MainWindow object and configuring the object properties.

# Create the main window
my $x_win = MainWindow->new();

The application is divided into four frames: one on the top (personInfo), one in the middle (midFrame), and two at the bottom for "Load and Save Data" buttons. personInfo is divided into a left frame for labels and right frame for fields.

my $personInfo = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
my $personLeft = $personInfo->Frame(-background=>'cyan')->pack(-side=>'left',
my $personRight = $personInfo->Frame(-background=>'cyan')->pack(-side=>'left',
# Labels
$personLeft->Label(-text=>'Personal Information',-background=>'cyan')->pack();

Variables are bound to the labels in the midFrame frame. This implies that when the state of the label control changes, the variable is updated to reflect the new state and vice-versa.

# Fields

midFrame is used to put some sort of separator between the "Personal Information" and the "Load and Save Data" buttons.

# Separator Bar
my $midFrame = $x_win->Frame(-borderwidth=>3,-relief=>'groove',

# Process frame
my $saveFrame = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
$saveFrame->Button(-text => 'Save Data',-command => \&saveinfo,
              )->grid(qw/-row 2 -column 0 -sticky nesw/);

# Process frame
my $loadFrame = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
$loadFrame->Button(-text => 'Load Data',-command => \&loadinfo,
              )->grid(qw/-row 2 -column 0 -sticky nesw/);

MainLoop() signals the end of TK widgets building, and the code that follows will be subroutines. saveInfo dumps the state of perInfo hash, loadInfo does the opposite. Note that perInfo is bound to the controls in the personRight frame.


sub saveinfo
    print OUT "Name" . "=" . $perInfo->{NAME} . "<br>\n";
    print OUT "Age" .  "=" . $perInfo->{AGE} . "<br>\n";
    print OUT "Address" .  "=" . $perInfo->{ADDR} . "<br>\n";
    print OUT "Occupation:" . "=" . $perInfo->{OCCUPATION} . "<br>\n";

    $file = $x_win->getSaveFile(-filetypes => \@types);
    #print OUT "Content-type:text/html\n\n";
    print OUT $perInfo->{NAME} . "\n";
    print OUT $perInfo->{AGE} . "\n";
    print OUT $perInfo->{ADDR} . "\n";
    print OUT $perInfo->{OCCUPATION} . "\n";

sub loadinfo
    my $file;
    # Types are listed in the dialog widget
    my @types = (["Config Files", '.txt', 'TEXT'],
               ["All Files", "*"] );

    $file = $x_win->getOpenFile(-filetypes => \@types);

    open IN,$file;
    my @tfile = <IN>;
    chop @tfile;
    close (IN);

    $perInfo->{NAME} = $tfile[0];
    $perInfo->{AGE} = $tfile[1];
    $perInfo->{ADDR} = $tfile[2];
    $perInfo->{OCCUPATION} = $tfile[3];

This article introduced the basics of installing the Perl interpreter and writing a visual application using the Tk. I encourage you to explore further on the web as well as try out simple programs.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Web Developer
India India
No Biography provided

You may also be interested in...


Comments and Discussions

GeneralErrors in the code Pin
mattrix00726-Apr-06 5:43
membermattrix00726-Apr-06 5:43 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.171114.1 | Last Updated 5 Feb 2004
Article Copyright 2004 by PrashanthLA
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid