Herhangi bir gönderide olan boşlukları sayarak, o gönderideki teknik olarak kelime sayılabilecek verileri anlam kaygısı gütmeden saptayabiliriz. aşağıdaki aliasta regex yardımıyla kelime saymaya çalışalım:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias letter {
var %let $regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/\b(.)\1*(\s|$)/g,)
if $regex(%let,/(\S+)/g) { echo -a $+($1-,:) Burada $regml(0) kelime var. }
else { echo -a $+($1-,:) Burada tek harf/rakam(lar) var }
}
örnek kullanım: /letter hey hey hat
cevap: hey hey hat: Burada 3 kelime var.
örnek kullanım: /letter Feragat deneme upp
cevap: Feragat deneme upp: Burada 3 kelime var.
örnek kullanım: /letter 123123
cevap: 123123: Burada tek harf/rakam(lar) var
örnek kullanım: /letter aaaaaaaaaaaaaaaaaa
cevap: aaaaaaaaaaaaaaaaaa: Burada tek harf/rakam(lar) var
bir tık daha ileriye götürmeye çalışarak kelimeleri sayan, satırları sayan bir puan kodu projesi haline getirmeye çalışabiliriz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#shady1:{
if $regex($regsubex($regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/(^|\s)(.)(\s|$)/g,),/(.)\1+/g,\1),/(\S+)/g) {
hadd -m p $+(kelime,$nick) $calc($hget(p,$+(kelime,$nick)) + $regml(0))
hadd -m p $+(satır,$nick) $calc($hget(p,$+(satır,$nick)) + 1)
msg # 4Algılanan gönderi: $regsubex($regsubex($1-,/[[:punct:]]/g,),/\b(.)\1*(\s|$)/g,) 4Kelime toplamı: $hget(p,$+(kelime,$nick)) 4Satır toplamı: $hget(p,$+(satır,$nick)) 4Puanın: $calc($calc($hget(p,$+(kelime,$nick)) * $hget(p,$+(satır,$nick))) / 100)
}
}
yapılan bazı denemelerin logları: Kod: Kodu kopyalamak için üzerine çift tıklayın!
[00:10:08] «@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» hebele hübele cartttttttttttt curt
[00:10:08] <Xenophanes> Algılanan gönderi: hebele hübele cart curt Kelime toplamı: 65 Satır toplamı: 59 Puanın: 38.35
[00:10:14] «@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» denemexxxxxxxxxxxxxxxxxeeeeeeeeeeeeeeeeeddddddddd
[00:10:14] <Xenophanes> Algılanan gönderi: denemexed Kelime toplamı: 66 Satır toplamı: 60 Puanın: 39.6
[00:10:19] «@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» hey naber nasıl gidiyor?
[00:10:19] <Xenophanes> Algılanan gönderi: hey naber nasıl gidiyor Kelime toplamı: 70 Satır toplamı: 61 Puanın: 42.7
[00:10:23] «@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» 01293019203sahayha
[00:10:23] <Xenophanes> Algılanan gönderi: sahayha Kelime toplamı: 71 Satır toplamı: 62 Puanın: 44.02
[00:10:28] «@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» as*apsd*pas*dpas das*d *asd
[00:10:28] <Xenophanes> Algılanan gönderi: asapsdpasdpas dasd asd Kelime toplamı: 74 Satır toplamı: 63 Puanın: 46.62
devam ettirilebilecek olan bazı deneme/yanılma yöntemleriyle gerçekten etkili ve farklı bir puan/istatistik kodu haline getirilebileceğini düşünüyorum. bu aşamaları bundan 7-8 ay kadar öncesinde sürdürmüş, hatta biraz daha ileriye götürmüştüm. getirdiğim son halini ise malesef kaybettim. şans eseri @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ile paylaşmış olduğum bu aşamaları buldum. belki de başka insanlar daha effektif hale getirip kullanabilirler diye düşünüyorum! son olarak farklı düşünebilmemi sağlamış olduğun için sana defalarca belirttiğim minneti buradan da iletiyorum ağabey, teşekkürler...