Ну зачем так строго? :)

Yuriy V. Vorontsov (Че) 25.03.2004 18:40

Наоборот парсер надо ценить и поднимать как технологию!

Владея перлом и технологиями типа Mason, и имея не малый опыт разработки, скажу что насколько бы парсер не был бы медленным и ограниченным, время разработки он уменьшает в разы, а также способствует снятию барьеров между HTML-кодером и программистом.
Не спорю, парсер не язык программирования, но те кто ценит программирование как искусство, может писать сайты хоть на ассемблере, но работе в команде такой подход способствовать не будет.

Так что надо способствовать развитию парсера как технологии, писать открытые модули, как тот парень сегодня с CMS. Наверное стоило бы открыть раздел на этом сайте, где люди бы могли открыто выложить свои модули работы с Image::Magick, gzip, и прочее... Честно скажу, меня сдерживает, что модуль будет проходить модерирование. Удобнее было бы иметь аккаунт на сайте, как сейчас и администрировать свои модули исправлять в них ошибки... Хотя бы так...

Потому что, как это идёт сейчас -- это идёт плохо, т.к. никак не идёт, никто никому помогать не хочет…

Пример: нашёл ошибку в открытом классе «число прописью», там вместо $num должен быть $rub, выслал это сообщение автору сего класса... В итоге неделя прошла код не исправили...

Вот он этот код:

$rub(^math:trunc($amount)) # Рубли - целая часть числа
# Если сделать $cop(^math:trunc(^math:frac($amount)*100))
# по непонятной мне причине $amount = 123.21 дает $cop = 20
	$cop(^math:frac($amount)*100) # Копейки - два знака после запятой
	$cop(^cop.int[])
	$result[^int2str($rub)[m;upper]]
# Для числей от 10 до 20 нужно писать рублей, иначе в зависимости от последнего знака
	^if($num%100 < 20){ $d($num%100) }{ $d($num%10) }
	$result[${result} $drub.$d $cop]
# Для копеек тоже самое, что и для рублей
	^if($cop%100 < 20){ $d($cop%100) }{ $d($cop%10) }
	$result[${result} $dcop.$d]

Должно быть так:

$rub(^math:trunc($amount)) # Рубли - целая часть числа
# Если сделать $cop(^math:trunc(^math:frac($amount)*100))
# по непонятной мне причине $amount = 123.21 дает $cop = 20
	$cop(^math:frac($amount)*100) # Копейки - два знака после запятой
	$cop(^cop.int[])
	$result[^int2str($rub)[m;upper]]
# Для числей от 10 до 20 нужно писать рублей, иначе в зависимости от последнего знака
	^if($rub%100 < 20){ $d($rub%100) }{ $d($rub%10) }
	$result[${result} $drub.$d $cop]
# Для копеек тоже самое, что и для рублей
	^if($cop%100 < 20){ $d($cop%100) }{ $d($cop%10) }
	$result[${result} $dcop.$d]

Был уверен, что автор позаботиться подправит код... Ошибался!
Кто виноват? Что делать?

---