Örnek Kod Paylaşımı

[hitokiri]

Bana esti bir şekilde, acaba perl kodlarıyla haşır neşir olunca ortaya nasıl bir şey çıkar, diye. Sonuç olarak elle tutalabilir bir örnek kod ortaya çıktı. Dosyayı blabal.pl veya blabla.plx şeklinde kayıt ettikten sonra;
Uçbirimden;

Kod Seç Genişlet

perl blabla.pl
Şeklinde çalıştırabilirsiniz. Okunduğu üzere yazımı biraz espirili bir dil.

Kod Seç Genişlet

#!/usr/bin/env perl
use Time::HiRes qw(usleep nanosleep);
use Scalar::Util qw(looks_like_number);
use strict;
use Gtk2 -init;


my $apple; my  $pear; my $plum, my $i;
($apple, $pear, $plum)  = ("Apple", "Pear", "Plum") ;

#hold on, when variables are look endless
# then use functions :)
sub echo {
my @list = @_ ;
if ( scalar @list == 2) {
print @list[0],"\t", @list[1], " \n";
} elsif ( scalar @list > 2) {
print "\n";
my $i = scalar @list;
do {
if ( looks_like_number($i) ) {
system("echo -n '-->'@list[$i]");
usleep(95000);
}
} while ($i--);
print "\n";
} else {
print  "-->", @list, " \n";
}
}

echo ($apple,"Elma");
echo ($pear, "Armut");
echo ($plum, "Erik");

echo ( (1 .. 6) );
my @numbers =  (
(1 .. 20),
(1 .. 10),
);

#When it comes to statements...
if ($apple == "Apple"){
echo( "Somewhere over the rainbow,\n there are lots of red apple." )
}

echo(@numbers);
echo(@numbers[0 .. 9]);
echo(@numbers[0 .. 19] );


for my $own_sake (@numbers[ 0 .. 19 ] ) {
my $i=10;
do  {
system( "echo  -n '##'" );
usleep(41000);
} while ($i--);
echo($own_sake);
if ($own_sake == 9) {
echo("Nearly, half of the way.");
}
if ($own_sake == 20) {
echo("All done!");
}
}

my $window = Gtk2::Window->new('toplevel');
$window->signal_connect('delete_event'=>sub{Gtk2->main_quit()});
$window->set_size_request(300,300);
$window->set_title("My first Perl Script!");
my $label = Gtk2::Label->new();
$label->set_markup("<big> <b> PERL!!! </b> </big> ");
$window->add($label);
$window->show_all;
Gtk2->main;
0;

[mhmtkrktr]

Elma , armut diye ne güzel sayarken boş pencere açtı. Ne beklentilerim vardı oysa ki. İnsan içine bir iki buton muton koyar 
Bu arada gtk-perl paketinin kurulu olması gerekiyor.
Paylaşım için teşekkürler.