Wie kann ich die Grep -Ausgänge nach TCL Stdin übergeben? ⇐ Linux

[Anonymous]

Es gibt mehrere Antworten auf dasselbe für Python und Perl, aber ich kann kein Beispiel für TCL finden. Grundsätzlich ist es beabsichtigt, die Ausgabe von Grep in TCL -Verfahren über Rohr zu lesen. Ich habe es versucht < /p>

Code: Select all

grep -ri --color -n WRN warnings.log | lint.tcl
< /code>
Inhalt von Lint.tcl: < /p>
#! /usr/bin/tclsh
lappend a [gets stdin]
puts "[join $a \n]"
< /code>
, aber dies gibt nur die erste Zeile der GREP -Übereinstimmung aus. Gibt es eine Weile Bedingung um [bekommt stdin] 

, was helfen kann?