Gönderen Konu: Örnek Kod Paylaşımı  (Okunma sayısı 1063 defa)

0 Üye ve 2 Ziyaretçi konuyu incelemekte.

« : »
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ç]
perl blabla.plŞeklinde çalıştırabilirsiniz. Okunduğu üzere yazımı biraz espirili bir dil. :D
Kod: [Seç]
#!/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;

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