Örnek Kod Paylaşımı

Başlatan hitokiri, 05 Şubat 2018 - 00:53:45

« önceki - sonraki »

0 Üyeler ve 1 Ziyaretçi konuyu incelemekte.

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;
perl blabla.pl
Şeklinde çalıştırabilirsiniz. Okunduğu üzere yazımı biraz espirili bir dil. :D
#!/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  :) :D
Bu arada gtk-perl paketinin kurulu olması gerekiyor.
Paylaşım için teşekkürler.