Way tracking autonomous robot control using an overhead camera

Xor Back Propagation

3D Satranç Oyunu - DirectX C++ ( 3D Chess Game with DirectX C++)

Source Code: https://drive.google.com/file/d/0B_hQ4wnwmXuuM3pWeVVLOG9RTDg/view?usp=sharing

Perl ile String işlemleri - String to char array-String reverse -String Push

#----------------------------------------------------------------------
#string'i char dizisine dönüştirme ve üzerinde gezinme
#----------------------------------------------------------------------

my $str = "merhaba";
my @char_array = split(//,"$str");
#string to char
foreach my $char (@char_array){

if($char eq "h"){
print "H\n";
}else{
print $char . "\n";
}
}
#----------------------------------------------------------------------
#end
#----------------------------------------------------------------------


#----------------------------------------------------------------------
#string reverse,tersine çevirme,yeni bir diziye push ile veri ekleme
#----------------------------------------------------------------------
print "REVERSE\n";
$size=@char_array;
@reverse;
foreach my $char (@char_array){
$size=$size-1;
print @char_array[$size] . "\n";
push @reverse, @char_array[$size];

}
print "\nREVERSE ARRAY\n";
print @reverse;
#----------------------------------------------------------------------
#end
#----------------------------------------------------------------------

Prel ile Dosya İşlemleri

#-------------------------------------------------
#Dosya Yazma İşlemi
#-------------------------------------------------
$chat_line=$ARGV[0]; 
# '>' olursa dosyayı yeniden üretir,'>>' olduğu için üzerine yazıyor
open(my $fh, '>>', 'dosya.txt'); 
print $fh "$chat_line\n";
close $fh;

#-------------------------------------------------

#Dosya Okuma İşlemi

#-------------------------------------------------

my $filename = 'dosya.txt';

if (open(my $fh, '<:encoding(UTF-8)', $filename)) {

  while (my $row = <$fh>) {

    chomp $row;

    print "$row\n";

  }

} else {

  warn "Could not open file '$filename' $!";

}

Perl ile 2 temel uygulama

#---------------------------------------------
#Dizi uzerinde gezinerek,dizi elemanlarinin toplamini bulma 

@dizi = ("1","2","3","4","5","6","7","8","9","10");
$boyut=@dizi;
$toplam;
foreach $dizi (@dizi){
print "$dizi\t";
$toplam+=$dizi;
}

print "\nBoyut : $boyut\tToplam : $toplam\n";


#---------------------------------------------
#Belirtilen degerin faktoriyelini hesaplama

$fact=1;
for $i (1..6){

$fact=$fact*$i;
print "$fact\t";
#ufak bir if kosulu
if($fact=="24"){
print "yirmidort";
}
}
print "\nFact : $fact\t";


Kaynak Kod

Windows ortamında Perl programlama diline giriş - hello world

    Perl nedir?Bizden ufak bir açıklama.

Perl; genel amaçlı bir dildir,tasarlanma amacı text işleme üzerinedir.Perl platformlardan bağımsız olarak çalışabiliyor.
Detay veya Detay.
İlk olarak Perl'i Windows bilgisayarımıza kurmak için,gerekli kurulum dosyasını indireceğiz.
Buradan bu sürümü indirebilirsiniz.

    Kurulum dosyanız indirildikten sonra,standart yükleme işlemini gerçekleştiriniz.
Perl sistemin yoluna kurulacaktır, örneğin 64 bit işletim sistemleri için "C:\Perl64" .

Kurulum işleminin başarılı bir şekilde gerçekleştiğini anlamak için cmd (terminal) ile kurulan dizine gitmeliyiz ve ardından aşağıdaki komutları yazmalıyız.

• $ perl -v

    Eğer ki başarılı bir kurulum geçirmişseniz aşağıdaki gibi bir mesaj görmelisiniz.

 This is perl 5, version 16, subversion 2 (v5.16.2) built for i686-linux Copyright 1987-2012, Larry Wal Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit.

    Kurulum işlemini yaptıktan sonra ilk scriptimizi yazma işlemine geçebiliriz.

ama ilk önce Perl komutunun aldığı bir kaç parametlere,argümalara bakalım.

• -d[:debugger] 

debugger'ın altında programı koşma

• -e 

$perl -e 'print "Hello World\n"' ,satır içinde script koşulabilir.

• file

$perl  code.pl ,verilen bir perl script dosyanın koşar.

code.pl 'in içeriği;

#!/usr/bin/perl
# This will print "Hello, World"
print "Hello,world\n";

    Programı 2 şekilde yazabiliyoruz,ister komut satırdan direk script olarak ,istersekte script dosyasından programı koşabiliyoruz.