_ RU.OS.CMP (2:5077/15.22) _________________________________________ RU.OS.CMP _
From : Igor Nikolaev 2:5030/266 15 Jul 98 03:10:14
Subj : Re: DNiq - ты там что-то говоpил...
________________________________________________________________________________
John Gladkih <John_Gladkih@p1.f16.n5051.z2.fidonet.org> wrote:
> SIY> Вадим, можно, конечно, извpатиться и написать regexp на бобике, но
> SIY> это не значит, что это стоит делать и из этого вовсе не следует что
> SIY> кто-то из них мощнее.
> на заказ пишу перл на бобике ;)
Можно я вместо этого попрошу Вас портировать
на rexx простой скрипт замены фонтов в Netscape 4.05
http://knot.pu.ru/faq/netscape/patch.pl
и сказать, сколько времени он отрабатывает,
для того, чтобы можно было бы более-менее
сравнить быстродействие perl и rexx.
Портировать там собственно нечего, этот скрипт
выполняет тупую подстановку строчек, на вход
ему подкладывается netscape, на выходе он выдаёт
отмоченный для koi8-r бинарник. Скрипт состоит
из десятка присваиваний и одного while с
подстановками и print в конце.
Если можно, не меняйте алгоритма
(хотя менять там особо нечего ;-)
У меня на PII/233 он отрабатывает за
hi.pu.ru# time ./patch.pl < netscape > netscape.new
real 0m3.975s
user 0m3.244s
sys 0m0.641s
hi.pu.ru# ls -al netscape*
-r-xr-xr-x 1 root wheel 10825728 26 мар 17:53 netscape*
-rwxr-xr-x 1 root wheel 10825728 15 июл 03:34 netscape.new*
hi.pu.ru#
К сожалению у меня нет rexx, чтобы сравнить, и я,
некомпетентен в его использовании, чтобы спорить :-(
Hо сравнить на чём-то простом и сравнимом хочется.
> john, mailto:john@simcb.ru, http://www.mv.ru/~john
- ---
Игорь Hиколаев
--- TIN [UNIX 1.3 unoff BETA 970930; i386 FreeBSD 2.2.5-RELEASE] * Origin: Ты вернулся, но вместо дома - стена... (2:5030/266@fidonet)
