perl

• undef $/;open(_,$0);/ \dx([\da-f]*)/while(<_>);@&=split(//,$1);@/=@&;
  $".=chr(hex(join("",splice(@&,0,2))))while(@&); eval$”;
  
  ($c,$_,@\)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|\||.chr(32)x(0x10).q$*$.
  chr(0x20)x(0x10).(pack("cc",124,10)), sub{s/.\|(\s*?)(\s)./\|$1 $2/},
  sub{s/\|(\s*?).(\s)/ \|$1$2 /}, sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$c},
  sub{$1.$3.$2});
  while ($_) {
  select $/, undef, $/, $c/1e3;
  (sysread(stdin, $k, 1),s/(.)(\*)(.)/(&{$\[(ord($k)-44&2)+2]})/e)
  if (select($a=chr(1),$/,$/,0));
  
  print 0x75736520504f5349583b2024743d6e657720504f5349583a3a5465726d696f73
  3b24742d3e676574617474722828303d3e2a5f3d5c2423292f32293b2024742d3e
  365746c666c61672824742d3e6765746c666c6167267e284543484f7c4543484f4
  7c4943414e4f4e29293b2024742d3e7365746363285654494d452c31293b24742d
  e7365746174747228302c544353414e4f57293b24643d224352415348215c6e223b0a;
  
  ($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die("$d");
  (&{$\[3]}<$/[1])&&(s/ \|$/\|/);
  (/\|.*\*.*\|$/)||die("$d");
  }
  
  gercekten tamamen modular, reusable, flexible ve readable bir dil. grepping disinda bir amacla kullanilmaya kalkisildiginda (mesela oyun yazmak falan gibi), yukaridaki tur seyler oluyor^*.
  cirkin yonleri hakkinda bir yazi : http://www.garshol.priv.no/download/text/perl.html
  
  regexp kabiliyetine diyecek birsey yok, ama performans acisindan da bakmak gerek ... belli bir problemde bir perl kodunun c++'daki esdegerinden cok hizli olmasi bence kodun c++ versiyonunun cok cok kotu oldugunu kanitlar, baska bisiyi degil. yine de performans sorunlari, yuzune tukursen calismasi kadar buyuk bir sorun olamaz tabi. calissin diye mi program yaziyoruz, yoksa istedigimizi, ve sadece istedigimizi yapsin diye mi ?