my @files = glob( $dir . '/*' );
=====
e - Расмматривать правую часть как выражение.
20px -> 10px
$k=2;
s|(\d+)(?=px)|int($1/$k)|eg;
------------
$_ = <>; # Читать одну строку с клавиатуры
---------------
qx/строка/
`строка`
Сначало строка интерполируется а потом выполняется как
системная команда.
А вывод команды можно - в переменную.
Пример:
print `date`;
Результат:
Thu Nov 14 13:36:49 MSK 1996
----------------
#!/usr/bin/perl -w
use utf8;
use strict;
use Wx;
my $app = Wx::SimpleApp->new;
my $frame= Wx::Frame->new( undef, -1, "Trivial Sample" );
my $button = Wx::Button->new( $frame, -1, 'Test' );
#EVT_BUTTON( $this, $button, 'OnAbout' );
$frame->Show;
$app->MainLoop;
-----------------------
Модальное окно: