cpan> install Tk

\perl\bin\ppm -> продукт Tk

use Tk;

$first = MainWindow->new(-title=>"Hello, all!");
$first->geometry("200x65");

$first -> Label(-text=>"Enter you name:") -> pack();
$first -> Entry(-textvariable=>\$name ) -> pack();

$first -> Button(-text=>"Enter",-height=>1,-width=>15, -сommand =>\&hello) -> pack();

$second = MainWindow->new(-title=>"Hello, all");
$second->geometry("200x20");
$second -> Label(-text=>"Hello, $name!") -> pack();

MainLoop;

#!/usr/bin/perl
use Tk;
$first = MainWindow->new(-title=>"Hello, all!");
$first->geometry("200x65");
$first -> Label(-text=>"Enter you name:") -> pack();
$first -> Entry(-textvariable=>\$name) -> pack();
$first -> Button(
-text=>"Enter",
-height=>1,
-width=>15,
-command =>\&hello) -> pack();
sub hello{
$second = MainWindow->new(-title=>"Hello, all");
$second->geometry("200x20");
$second -> Label(-text=>"Hello, $name!") -> pack();
}
MainLoop;

use Tk; # ноу комментс
$form = MainWindow->new(-title=>"Text Editor! (c) ph1l1ster"); # главное окно
$form->geometry("800x600"); # размеры
$form->resizable(0,0);# чтобы никто окно не шевелил ;)

$txt = $form -> Scrolled('Text',-width => 111, -height=>50,,-scrollbars=>'e') -> pack ();

#  выпадающее меню
$bar_menu = $form -> Menu(); 
$form -> configure(-menu => $bar_menu);
$file = $bar_menu -> cascade(-label=>"File", -underline=>0, -tearoff => 0);#  первая кнопка
$help = $bar_menu -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);#  вторая кнопка
$file -> command(-label => "New", -underline=>0, -command=>sub { $txt -> delete('1.0','end');} ); #  меню в первой кнопе - создать новое
$file -> command(-label =>"Open", -underline => 0, -command => [\&open, "Open"]);#  меню в первой кнопе - открыть
$file -> command(-label =>"Save", -underline => 0, -command => [\&save, "Save"]);#  меню в первой кнопе - сохранить
$file_types = [ ['Text Files', '.txt'], ['All Files',   '*'],];#  типы файлов
$file -> separator();#  разделитель
$file -> command(-label =>"Exit", -underline => 1,-command => sub { exit } ); #  меню в первой кнопе - выход

$file_types = [ ['Text Files', '.txt'], ['All Files',   '*'],];

$txt -> delete('1.0','end');

-command => [\&open, "Open"]

sub open {
$open = $form->getOpenFile(-filetypes => $file_types, -defaultextension => '.txt');}

-command => [\&save, "Save"]

sub save {
$save = $form->getSaveFile(-filetypes => $file_types, -initialfile => 'test', -defaultextension => '.txt');}

-command => sub { exit }

$ab = MainWindow->new(-title=>"Text Editor! (c) ph1l1ster # About");
$ab->geometry("320x150");
$ab->resizable(0,0);
$ab -> Label(
-text=>"Hello! ;)

This is you first GUI programm on perl :)

This is very easy.


Respect all whack members.

(c) ph1l1ster | special from all")