Hello!
В сообщении от Thursday 25 September 2008 21:02:14 Dmitry E. Oboukhov
написал(а):
> вот тут и надо вывести все с номерами строк
> то есть ты предлагаешь рассплитить на строки, и вывести номера строк со
> строками в цикле, а /e регексп это делает без геморроя просто
На строки разделить - легко:
#!/usr/bin/tclsh
set lines {one
two}
set i 0
foreach line [split $lines \n] {puts "[incr i] $line"}
Ну да ладно, специально для вас, код _в одну строку_:
set i 0; foreach line [split $lines \n] {puts "[incr i] $line"}
А вообще пишется функция на тикле
proc myprint {lines} {
set i 0
foreach line [split $lines \n] {
puts "[incr i] $line"
}
}
и теперь обработка выполняется вот так:
myprint $lines
Раз уж вы эту операцию так любите, последний вариант оптимален.
Best regards, Alexey.
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
