AP>>> Ну да ладно, специально для вас, код _в одну строку_:
AP>>
AP>>> set i 0; foreach line [split $lines \n] {puts "[incr i] $line"}
AP>>
AP>> printf "%05d %s", $counter++, $_ for split /\n/, $lines;
AP>> то же самое и на перле пишется, при необходимости. просто перл попутно
AP>> более простые средства предоставляет
AP> Ну а кто вам мешает аналогичную функцию на тикле написать? И все сведется
AP> опять же к
AP> myprint $lines
AP> Получается, после реализации в тикле указанной функции перл можно выкинуть,
AP> вместе с шеллом? Дело движется :-)
нет ты не в ту степь копаешь
есть в перле УНИВЕРСАЛЬНЫЙ инструмент - /e
одну из задач им решаемую ты предложил функцию с циклом
появится вторая опять функцию писать будем итп?
AP>>> и теперь обработка выполняется вот так:
AP>>> myprint $lines
AP>>
AP>>> Раз уж вы эту операцию так любите, последний вариант оптимален.
AP>> кстати твой код номера строк не выравнивает по ширине, а мой выравнивает
AP>>
AP>> :)
AP> Я такие вещи в виде html генерю, с подсветкой строки под курсором и т.п. :-)
AP> Так что юзеры вполне довольны.
нет это не юзерам а именно программерам на отладке
--
. ''`. Dmitry E. Oboukhov
: :’ : unera@debian.org
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
Attachment:
signature.asc
Description: Digital signature