Как я могу подключить выходы в грип в TCL Stdin? ⇐ Linux

[Anonymous]

На Python и Perl есть несколько ответов, но я не могу найти какой -либо пример для TCLTK. По сути, намерение состоит в том, чтобы прочитать выходные данные GREP в процедуру TCL через трубу. Я попробовал < /p>

Код: Выделить всё

grep -ri --color -n WRN warnings.log | lint.tcl
< /code>
Содержание Lint.tcl: < /p>
#! /usr/bin/tclsh
lappend a [gets stdin]
puts "[join $a \n]"
< /code>
Но это выводит только первую строку Grep Match. Есть ли какое -то состояние вокруг [получает stdin] 

, что может помочь?

Подробнее здесь: https://stackoverflow.com/questions/795 ... -tcl-stdin