Hello!
В сообщении от Thursday 25 September 2008 20:01:26 Dmitry E. Oboukhov
написал(а):
> номера строки расставляются регекспом
>
> s/^/sprinf "%05d ", $lno++/emg;
Все равно обычно вывод делается построчно, так что можно нумеровать и так:
#!/usr/bin/tclsh
set lines {one two}
set i 0
foreach line $lines {puts "[incr i] $line"}
Выдаст
1 one
2 two
Можно и без счетчика обойтись, если хранить строки в массиве и выводить номер
элемента массива - тогда тоже получится одна строчка.
Best regards, Alexey.
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
