RSS

Haftanın UNIX – GNU/Linux ipucu – uygulama geliştirme aracı: Kabuk

22 Sep

Vakti zamanında klavye yazma hızı ve bunu ölçen cicili bicili uygulamalar üstüne bir şeyler karalamıştım [1, 2].

Yazma hızını çok basitçe (sözcük sayısı) / (bitiş zamanı – başlangıç zamanı) şeklindeki formülle ölçmek mümkün (tabii hata sayımı buna dahil değil, işi biraz basite indirgeyecek olursak).

Bugün AIX ve UNIX başlığı altındaki IBM developerWorks makalesinde gördüğüm kısacık bir komut satırı tabiri caizse günümü gün etti 😉

Şöyle ki: Başlangıç zamanı için, START=`date +%s`, bitiş zamanı için STOP=`date +%s`, kaç sözcük yazıldığını tespit etmek için WORDS=`cat|wc -w` ve son olarak da sayısal hesaplama için echo "$WORDS / ( ( $STOP - $START ) / 60 )"|bc.

Ve nihayetinde iyi tanımlanmış bir işi gayet iyi yapan bu küçük programları evrensel işletim sistemi Debian GNU/Linux üzerinde bir bilgi işlem zincirine sokarsak:


fz@debian:~$ START=`date +%s`;WORDS=`cat|wc -w`; STOP=`date +%s`; SPEED=
> `echo "$WORDS / ( ( $STOP - $START ) / 60 )"|bc`;echo 
> "You have a typing speed of $SPEED words per minute."

komutunu komut satırından verip hemen ardından da şöyle bir metni yazarsak (fortune sağolsun ;-)) ve bittiğinde de Ctrl-D ile sonlandırırsak:


This "brain-damaged" epithet is getting sorely overworked. When we can speak of
someone or something being flawed, impaired, marred, sopiled;
batty, bedlamit, bonkers, buggy, cracked, crazed, cuckoo,, daft, demeted,
deranged, loco
 lnatic, mad, maniac, mindless, non composmentis, nuts, Reaganite, screwy, tedhed,
unbalanced, unsound, witless, wrong; senseless, spastic, sasmodis, convulsive; doped,
spaced-out, zstoned-, zonked; (beef, beetle, block, dungh, teeck) headed, dense, doltish,
dull, duncical, numskulled,, pinhead, asininie, fatuous, foolish, silly, simple,; brute,
lumbering, oatfish; hafl-assed, imcompetent, backward, retarded, imbecilic, moronic; when we
have a whole precisely nuanced vocabulariy of intellectual abuse to dreaw upoon, individually
and i n cmbination, isn't it a little (fill in the blank) to be limited to a single, now qite
trite, adjective?

You have a typing speed of 29 words per minute.

Şimdi artık bu rezalet performansa bakıp ağlayarak ortamdan uzaklaşabilirim. Yaşasın UNIX ve GNU/Linux! :-p

Kaynak: UNIX productivity tips.

Advertisements
 
5 Comments

Posted by on September 22, 2006 in Debian, General, Programlama

 

5 responses to “Haftanın UNIX – GNU/Linux ipucu – uygulama geliştirme aracı: Kabuk

  1. Emre Sevinc

    May 19, 2009 at 12:57

    3 sene sonra gelen bir güncelleme: bc programına scale=4 (ya da 3 ya da 5, her neyse) bir parametre vermek gerekiyor ondalıklı işlemlerin sonuçlarını istediğimiz hassasiyette göstermesi için:

    START=`date +%s`;WORDS=`cat|wc -w`; STOP=`date +%s`; SPEED=`echo “scale=4; $WORDS / ( ( $STOP – $START ) / 60 )” | bc`; echo “You have a typing speed of $SPEED words per minute.”

     
  2. Burak Gürsoy

    June 30, 2010 at 22:00

    Görüyorum ve arttırıyorum (hassasiyet için %d yerine %f):

    perl -e ‘$t=time;$s.=$_ while;END{$w=split/s+/,$s;printf qq(You have a typing speed of %d words per minuten),$w/((time-$t)/60)}’

     
  3. Burak Gürsoy

    June 30, 2010 at 22:06

    HTML yorumlayıcısına takıldık :p 2. deneme:

    perl -e ‘$t=time;$s.=$_ while<>;END{$w=split/s+/,$s;printf qq(You have a typing speed of %d words per minuten),$w/((time-$t)/60)}’

     
  4. Emre Sevinc

    July 1, 2010 at 13:05

    Güzel hareket 😉 Perl power.

     

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: