шо ти мені розказуєш?) правила можна трактувати хто як хоче... я голову собі не забиваю такою фігньою як "а може це флейм викличе?"... я говорю по темі!
А про перл ще раз... Я на ньому ніколи писати не збираюся нічого... Але хочеться глянути на отаке наприклад:
sub ckinn($) { $_[0]!~/^(\d{9})(\d)(?:(\d)(\d))?$/ || (($3) ?
$3!= c("0".$1.$2) || $4!= c($1.$2.$3): $2!= c("00".$1)) + 0 }
sub c($) { $a=shift; $c=0; map { $c+=chop($a)*$_ } (8,6,4,9,5,3,10,4,2,7,3); $c %11 %10 }
і відразу зрозуміти, шо там робиться... хочу вміти читати будь-який код (на топ-мовах), бо в моїй роботі часто таким приходиться займатися... а писатиму вже на тій мові, яку виберу сам...