Yeni Deascifier

15 senedir İngilizce klavye ile yazıyorum, ve fena alıştım. F klavyeye de, Türkçeleştirilmiş Q klavyeye bile alışacak vaktim ve isteğim yok. Eh dedim ben de, biraz beyin ve Perl kaslarımı çalıştırayım, ve şu işe kalıcı bir çözüm bulayım. Benim değişmeye niyetim yok, teknoloji bana yardım etsin.

Sonuç, Bilgidata Deascifier programı. Fikir: Daha fakir" alfabeye sahip olan dil İngilizce olduğuna göre, etrafta zaten yazılı olan bir çok Türkçe yazıları kullanıp, bir sözlük oluşturmak. Sözlük şöyle oluşacak. Bu dökümanlara bakarken içinde TR karakter olan her kelime içinde ne zaman bir Türkçe harf görsem, o harfi "fakirleştiriyorum" yani deascify işleminin tersini yapıyorum. Sonra "fakirleştirilmiş" yeni kelimeden halen hatırladığım Türkçe kelimeye bir işaret koyuyorum (Perl hash kullanarak). Bundan sonra TR karakteri kullanmayan metinden aynı hash'i kullanarak ters yönde ara/değiştir yapmak mümkün oluyor.

Daha fazla detay için programın koduna bakabilirsiniz. Lisans LGPL. Tepe tepe kullanılabilir.

Görüşler

bio
19 yıl önce

Ayni isi yapan online bir servis de epeydir var:

http://www.hlst.sabanciuniv.edu/TL/deascii.html

afsina
19 yıl önce

Zemberek web demosunu da kullanabilirsiniz.

http://pisi.uludag.org.tr:8080/zemberek_web/

afsina
19 yıl önce

Bu arada, bahsettiginiz yontem ne yazik ki her zaman islemeyecektir.
Bu konuda istatistiksel (Sabanci universitesi kaynakli uygulamada oldugu gibi) ya da morfolojik cozumleme (zemberekte oldugu gibi) daha iyi sonuc verecektir. Zemberek yonteminin eksikligi belisrsizlik gidericinin zayif olmasi, yani bazen birden fazla sonuc uretildiginden hangisinin secilmesi gerektigi konusunda yanlis karar verebiliyor.

afsina
19 yıl önce

Bu arada, yazida bahsedilen "deasciifier" ters olmus saniyorum, yani ascii karakter iceren kelimenin turkcelestirilmesine deasciifier deniliyor diye biliyorum. asciifier denmeliydi heralde .Sorunlu olan konu zaten deasciifier.

Görüş belirtmek için giriş yapın...

İlgili Yazılar

Windows için ideal Perl ortamı

sundance
20 Mayıs 2001, 1 dakika okuma süresi

Uzun zamandır Perl için Windows ortamında güzel bir Entegre Yazılım Geliştirme ortamı arıyordum, sonunda buldum Open Perl Ide

Gerek debug özellikleri ile gerekse editörünün sağladığı kolaylıklar ile gerçekten dört dörtlük bir Perl geliştirme ortamı, herkese tavsiye ederim.

Perl Öğreniyoruz - 3

cayfer
5 Mayıs 2002, 5 dakika okuma süresi

2. bölümün sonunda bu hafta "listeler"den söz edeceğimi söylemiştim.

Listeler (arrays) Perl'in çok güçlü olduğu konulardan birisidir. Perl'de bir listeden söz ederken değişken adının başına bir @ işareti koymalısınız. (Hatırlıyorsanız sayıl (scalar) değişkenlerin adı $ işareti ile başlardı).

Perl, Divx, altyazı ve başının çaresine bakabilmek üzerine

sundance
6 Aralık 2004, 9 dakika okuma süresi

Uzun zamandır izlemek istediğim, The Hustler'ı seyretmek için sonunda zaman bulabildim. Paul Newman'ın 1962'de başrolünü oynadığı bu film, yıllar sonra Color of Money'e de konu olacak Fast Eddie Felson'ın hikayesini anlatıyordu. Dahası Unix Junkie makalemde bahsettiğim insan modelinin belki de en iyi örneklerinden biriydi.

Fakat küçük bir problem vardı, filmindeki hiçbir dialoğu kaçırmamak için altyazıya ihtiyaç duyuyordum, fakat benim elimdeki film iki cd olmasına rağmen bulabildiğim yegane ingilizce altyazı üç cdlikti.

Durumdan vazife çıkartmaya zaten hazır bir FM sakini olarak, sıvadım kolları ve küçük bir perl betiki yazdım bu işi yapması için. Film hatırladığımdan bile güzeldi, ama böyle bir durumda bir beş, on dakika içinde problemi çözebilmek daha bile keyifliydi, GNU/Linux kullanıyor olmak keyifliydi :)

Perl 20. Doğum Günü ve Perl 5.10 Çıktı

anonim
23 Aralık 2007, 2 dakika okuma süresi

Geçtiğimiz günlerde Perl'in 20. yaşgünü tüm dünyada coşku ile kutlandı. Doğum gününden 1 gün önce Perl Vakfı Perl 5.10'u duyurdu.

Perl 5.10 da görünen en önemli değişiklik smart match operator. Bir tür karşılaştırma yapmamıza yarayan operatör array içinde aradığımız scalar değeri bulmamızı sağlıyor. Yeni operatörümüz: "~~". Örnek vermek gerekirse $needle scalarimizi array @haystack içinde arıyorsak, kolayca yeni operatörümüzü kullanıyoruz.

if ($needle ~~ @haystack) ...

Sonuç olarak artık Perl'de tüm kaşılaştırmalar doğru şeyi yapmamızı sağlıyor.

Anti-Spam E-Posta Adresi Oluşturma (Şifreli IP Adresiyle)

FZ
11 Temmuz 2003, 1 dakika okuma süresi

Bugün Perl Rahipleri tapınağında okuduğum ve spam e-posta konusu ile ilgili bu önemli makaleyi ve Perl kodunu sizinle paylaşmak istedim.

Eğer bir şekilde web sayfanızda e-posta adresinizi yayınlamak istiyorsanız yukarıdaki makaledeki Perl betiğini (script) kullanarak oluşturacağınız dinamik bir e-mail adresinin içine o anda sizin e-posta adresinizi çekmeye çalışan robota ya da spamciye dair bilgileri gömebiliyorsunuz. Nasıl yani diyenler okumaya devam edebilir ;-)