run.pl

$sessiz = "qwrtyplkjhgfdszxcvbnmçşğQWRTYPLKJHGFDSZXCVBNMÇŞĞ";
$sesli = "âıoueaöiüIOUEÂAÖİÜ";
$tr = "âöçşığüÂÖÇŞĞÜ";

undef $/;

@words = (
	  "başlayabilirsiniz",
	  "İngilizce",
	  "başladığımız",
	  "alındıktan",
	  "yapılmaktadır",
	  "özelliğidir",
	  "olmuştur",
	  "çalışmaktadır",
	  "sonuçları",
	  "erişmesi",
	  "çağırılabilen",
	  "hazırlatmıştık",
	  "yaratılmıştır",
	  "alanına",
	  "tanımladığı",
	  "başlattırmamız",
	  "çalıştırma",
	  "alınmamışsa",
	  "işleyeceğiz",
	  "seçimini",
	  "Kullanacağımız",
	  "sağlayabiliriz",
	  "kütüphanesi",
	  "bittiğinde",
	  "çağrılacağından",
	  "çağrısını",
	  "farklılıklarından",
	  "geçirecektir",
	  "yapılmaması",
	  "seçeneği",
	  "çakışmaları",
	  "satırlarda",
	  "vazgeçilmez",
	  "inşaat",
	  "kaçınıp",
	  "kullanacağımız",
	  "söylemiştik",
	  "uğraşmadan",
	  "eriştiğinde",
	  "bakılarak",
	  "bölümünü",
	  "bağlanılmamasıdır",
	  "şartlarında",
	  "müteşekkirim",
	  "Derneği",
	  "gördük",
	  "bölümlerde",
	  "İnsanların",
	  "hazırlanmış",
	  "anlaşılan",
	  "birleştirim",
	  "POJO",
	  "artık",
	  "yapılmaz",
	  "tanımlamaya",
	  "alışkanlığı",
	  "çünkü",
	  "başlamadan",
	  "lerinizin",
	  "sektörümüz",
	  "tıklanınca",
	  "çözüldü",
	  "yaptırılacaksa",
	  "tanımlıyoruz",
	  "başlatıldığı",
	  "Örneğimizde",
	  "yapılarınızı",
	  "işlemlerinin",
	  "değişiklikler",
	  "sıkacak",
	  "bağlantısı",
	  "menüden",
	  "karşılaştırma",
	  "yazılımlar",
	  "çabukluğu",
	  "Sağlayıcısı",
	  "katılımcılardan",
	  "ettiğimiz",
	  "yaygınlaşmaya",
	  "programcılığın",
	  "çağıran",
	  "öğrenmekte",
	  "teşekkürler",
	  "öğrendiğini",
	  "geçeceklerdir",
	  "takımının",
	  "paylaşılmalı",
	  "başlayabilecekleri",
	  "çıkarmalıdır",
	  "başlayacaktır",
	  "düşüklüğü",
	  "düşünülmüş",
	  "kısımdaki",
	  "kaçınılmazdır",
	  "şirketlerinden",
	  "programcının",
	  "seçeneklerini",
	  "aşılamalısınız",
	  "aşamasındaydı",
	  "yıkılmış",
	  "bütçelendirme",
	  "çalışan",
	  "çalıştığımız",
	  "bakımından",
	  "yarışmasında",
	  "yapılacaktır",
	  "çağırılabilecektir",
	  "görmediğimizi",
	  "gerçekleştirmeye",
	  "başlamıştır",
	  "düşünüş",
	  "çalışması",
	  "yaklaştırmanın",
	  "gerçekleştirdiğimiz",
	  "amaçları",
	  "ilişkisel",
	  "gelmişlerdir",
	  "şemaların",
	  "seçeneklerinden",
	  "erişiliyor",
	  "yazılıyormuş",
	  "değiştirmek",
	  "arttırabilmeliyiz",
	  "yaptığımız",
	  "işlemini",
	  "yazılmasını",
	  "işletebilmek",
	  "mantığını",
	  "edeceğimiz",
	  "çetrefillikte",
	  "içindeki",
	  "gerçekleştirebiliriz",
	  "içindeki",
	  "tıklamamız",
	  "erişebilmesi",
	  "yazılmıştır",
	  "bağlanmaya",
	  "gereğinden",
	  "tıklayarak",
	  "kaldırılmasıdır",
	  "değişebilecek",
	  "başlatıcı",
	  "tıklarsanız",
	  "hakkında",
	  "çıkabiliyor",
	  "güvenliğinin",
	  "tıklarsanız",
	  "erişeceğiniz",
	  "hazırlanmıştır",
	  "başlanacaktır",
	  "seçeneğini",
	  "geliştiricisine",
	  "bağlantısından",
	  "bakılmaktadır",
	  "değişkenine",
	  "dağıtımını",
	  "değerine",
	  "Dışarıdan",
	  "bırakılmasıdır",
	  "bağlanacak",
	  "arasında",
	  "çalışabileceği",
	  "tıkandığı",
	  "gerçekleştirebilmek",
	  "işlemesini",
	  "tanımlayabiliyoruz",
	  "değişkene",
	  "tanımladığınız",
	  "açmaktır",
	  "düğmesine",
	  "eşitleyebildiği",
	  "öğrendiğimiz",
	  "değişmeyen",
	  "tabanından",
	  "gömülü",
	  "bağlantılar",
	  "açılmasını",
	  "Bağlandıktan",
	  "değişkenlerinden",
	  "tekniğini",
	  "bölümde",
	  "tanımlanması",
	  "bağlamalıyız",
	  "edildiğine",
	  "kaçınırlar",
	  "yaptırabiliriz",
	  "işletilecektir",
	  "değiştirmemiz",
	  "başlayalım",
	  "değiştirmemiz",
	  "başlayabiliriz",
	  "tanımladığımız",
	  "yaklaşımını",
	  "kaldırmak",
	  "döndürüldüğünde",
	  "tanımlandı",
	  "atılacaktır",
	  "çevirmeye",
	  "açılmamışsa",
	  "ilişkilendirilmiş",
	  "uğratılmaktadır",
	  "üstünde",
	  "gördüğümüz",
	  "eşlenmektedir",
	  "işletebilirsiniz",
	  "oluşturulmuştur",
	  "algılanmamalıdır",
	  "olduğumuzu",
	  "tanımlayalım",
	  "işleyici",
	  "bölümünde",
	  "olduğunu",
	  "gözüküyor",
	  "yapılabilmesidir",
	  "yükümlüdür",
	  "ulaşmasını",
	  "doğuruyor",
	  "önbelleği",
	  "İnsanlardan",
	  "gelmiştir",
	  "başlatabilen",
	  "değerinin",
	  "değişikliği",
	  "sınırlamalardır",
	  "tanımlarına",
	  "erişebilmenizi",
	  "işletilmesini",
	  "yapılabilecek",
	  "konuşturacağız",
	  "güncellemek",
	  "alışkındırlar",
	  "kısmını",
	  "işlemlerdir",
	  "Şimdilik",
	  "sıfırdan",
	  "yüzden",
	  "olduğudur",
	  "altında",
	  "kısıtlamayı",
	  "yaklaşımdır",
	  "alışkanlıkları",
	  "işletirken",
	  "kişinin",
	  "bırakmaz",
	  "verdiğiniz",
	  "iyileştirmeleri",
	  "iyileştirmelerden",
	  "tanımlanmalıdır",
	  "başlayarak",
	  "şartlarda",
	  "gerçekleştirilmiştir",
	  "açısından",
	  "mümkündür",
	  "kullanılmıştır",
	  "seçmek",
	  "İnsanlardan",
	  "danışabilirsiniz",
	  "gözükmektedir",
	  "çevirmesine",
	  "yaklaşımda",
	  "yazılacak",
	  "sağlanmasıdır",
	  "görsel",
	  "taşımaktadır");


foreach $f(<chap*.tex>) {
    open GIRDI, $f;    
    $_ = <GIRDI>;
    s/\\\$/\$/sg;
    
    foreach $word(@words) {
	$nn = tr_split($word);
	s/$word/$nn/sg;	
    }
    
    close GIRDI;
    open CIKTI, ">changed/$f";
    print CIKTI;
    close CIKTI;
}

#
#
sub tr_split {
    my $word = $_[0];
    my $new = "";
#    print "<< $word >>";
    $DASH = "\\-";
    $len = length($word);
    while ($len > 3) {
#	print "--";
	if (substr($word, 0, 7) =~ /[$sesli][$sessiz][$sessiz][$sesli][$sessiz][$sessiz]/) { # ilginc
#	    print "3.1\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 7) =~ /[$sessiz][$sesli][$sessiz][$sesli][$sessiz][$sesli][$sessiz]/) {
#	    print "3\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 6) =~ /[$sessiz][$sesli][$sessiz][$sessiz][$sesli][$sessiz]/) {
#	    print "5\n";
	    $new = $new . substr($word, 0, 3);
	    $new = $new . $DASH;
	    $word = substr($word, 3, length($word));
	}
	if (substr($word, 0, 5) =~ /[$sesli][$sessiz][$sessiz][$sessiz][$sesli]/) { # ustte
#	    print "-1\n";
	    $new = $new . substr($word, 0, 3) ;
	    $new = $new . $DASH;
	    $word = substr($word, 3, length($word));			
	}	
	if (substr($word, 0, 5) =~ /[$sesli][$sessiz][$sessiz][$sesli][$sessiz]/) { #islem
#	    print "2\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 5) =~ /[$sessiz][$sesli][$sessiz][$sesli][$sessiz]/) {
#	    print "4\n";
	    $new = $new . substr($word, 0, 2);
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 5) =~  /[$sessiz][$sesli][$sessiz][$sessiz][$sesli]/) { #mikro
#	    print "7\n";
	    $new = $new . substr($word, 0, 3);
	    $new = $new . $DASH;
	    $word = substr($word, 3, length($word));
	}
	if (substr($word, 0, 4) =~ /[$sessiz][$sessiz][$sesli][$sessiz]/) { 
#	    print "0\n";
	    $new = $new . substr($word, 0, 4) ;
	    $new = $new . $DASH;
	    $word = substr($word, 4, length($word));			
	}	
	if (substr($word, 0, 4) =~ /[$sessiz][$sesli][$sessiz][$sesli]/) {
#	    print "6\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 4) =~ /[$sesli][$sessiz][$sessiz][$sesli]/) {
#	    print "6.2\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 4) =~ /[$sessiz][$sesli][$sessiz][$sessiz]/) {
#	    print "6.2\n";
	    $new = $new . substr($word, 0, 4) ;
	    $new = $new . $DASH;
	    $word = substr($word, 4, length($word));
	}
	if (substr($word, 0, 4) =~ /[$sessiz][$sesli][$sesli][$sessiz]/) {
#	    print "6.2\n";
	    $new = $new . substr($word, 0, 2) ;
	    $new = $new . $DASH;
	    $word = substr($word, 2, length($word));
	}
	if (substr($word, 0, 3) =~ /[$sesli][$sessiz][$sesli]/) {
#	    print "1\n";
	    $new = $new . substr($word, 0, 1) ;
	    $new = $new . $DASH;
	    $word = substr($word, 1, length($word));			
	}
	
	$len = length($word);

    }

    $new = $new . $word;
#    print "|| $new ||";
    return $new;
}