Re: Нужен ли bash
Hello!
> AP> Ну да ладно, специально для вас, код _в одну строку_:
>
> AP> set i 0; foreach line [split $lines \n] {puts "[incr i] $line"}
>
> printf "%05d %s", $counter++, $_ for split /\n/, $lines;
> то же самое и на перле пишется, при необходимости. просто перл попутно
> более простые средства предоставляет
Ну а кто вам мешает аналогичную функцию на тикле написать? И все сведется
опять же к
myprint $lines
Получается, после реализации в тикле указанной функции перл можно выкинуть,
вместе с шеллом? Дело движется :-)
> AP> и теперь обработка выполняется вот так:
> AP> myprint $lines
>
> AP> Раз уж вы эту операцию так любите, последний вариант оптимален.
> кстати твой код номера строк не выравнивает по ширине, а мой выравнивает
>
> :)
Я такие вещи в виде html генерю, с подсветкой строки под курсором и т.п. :-)
Так что юзеры вполне довольны.
Best regards, Alexey.
Reply to: