И еще
$p[1]=@; if/o/;push@;,$_};$h=-1;$l...@f;$k=-($...@f)
можно сделать так
$p[$l=1]=@;if/o/;push@;,$...@f;$h=-1;$k=-($...@f)
-2 символа. Плюс, из-за do{} вносить $h=-1 между двумя } в принципе
смысла не имеет, все равно ; нужна.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
