من اروع اكواد البيرل

بسم الله الرحمن الرحيم

تكلمت سابقا عن عن just another perl hacker

و هذا الكود من اروعها فهو شبيه بالجافا كثيرا و لكن في سطر الاوامر … جرب :

use Time::HiRes ‘usleep’;++$|;$s=’rekcah lreP rehtona tsuJ’;@v=
(65..90,97..122,32);do{do{print$_=sprintf’%c’,$v[rand@v];usleep
2000;print”\b”}while$_ ne substr$s,-1;chop$s;print}while$s