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
18 yıl önce

Ayni isi yapan online bir servis de epeydir var:

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

afsina
18 yıl önce

Zemberek web demosunu da kullanabilirsiniz.

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

afsina
18 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
18 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

Kevin Poulsen iş başında!

sundance
17 Ekim 2006, 1 dakika okuma süresi

Güvenlik dünyasının meşhur kötü çocuklarından, eski Security Focus yazarı Kevin Paulsen, yazdığı bir Perl scriptle U.S. National Sex Offender Registry kayıtları ile MySpace kullanıcılarını karşılaştırıp, bir cinsel suç zanlısının tespitine yardımcı olmuş.

Kendisini daha çok Los Angeles'daki KISS FM'in 102. arayan kişiye verdiği Porsche 944 S2'i kazanabilmek için, bütün telefon konuşmalarını durduran kişi olarak tanıdığımız Dark Dante kod adlı Poulsen yıllardır bilgi güvenliği alanında gazetecilik yapmakta, hatta zaman zaman bu olaydaki gibi otoritelere yardımcı olmakta.

Perl programcısı olmaktan gurur duyanlar için özel !

sundance
23 Temmuz 2003, 1 dakika okuma süresi

Perl'ün yaratıcısı Larry Wall, alışageldiğimiz tarzında yaptığı sunumla, 7. geleneksel Perl Soğanının Durumu isimli toplantıda yine herkesi kırdı, geçirdi :)

'Biz, isteksizler,
cahiller tarafından öncülük edilen bir yolda,
imkansızı gerçekleştirmeye çalışıyoruz.
O kadar uzun süredir o kadar çok şeyi, (elimizdeki) o kadar az şeyle gerçekleştirdik ki
Artık (elimizdeki) hiçbir şeyle, herhangibir şeyi yapabilecek hale yetkinliğe eriştik.'

Moleküler Biyoloji, Bioinformatik, 21. yy. ve Perl

FZ
13 Ağustos 2003, 1 dakika okuma süresi

60'lı yıllarda uzaya gitmek son moda idi. Sonra hızlı bilgisayarlar, gösterişli teknolojiler geldi, 90'lar böyle geçti. 21. yy ise moleküler biyoloji çağı olacak gibi görünüyor. Bilgisayar teknolojisi ve moleküler biyolojide son 30 yıl içinde kaydedilen ilerlemeler hayat bilimlerinin çehresini bir hayli değiştirdi. Aslında biyoloji o kadar da değişmedi, halen saha çalışması yapan biyologlar günlerce egzotik mekanlarda, zor koşullarda dolanıp garip canlıları inceliyorlar. Ancak hesaplamalı moleküler biyoloji sayesinde `hayat´ kavramına bakışımız epey gelişti. Artık organizmaların iç yapısı hakkında çok daha derinlemesine soru sorabiliyoruz.

Peki bütün bunların, tüm zamanların en fantastik programlama dillerinden biri olan ve doğal dile öykünmesi ile de bilinen Perl programlama dili ile ilgisi nedir? `Hacking´ ve `biyoloji´ kavramları aynı cümle içinde kullanılabilir mi?

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.