6 lines
156 B
Tcl
6 lines
156 B
Tcl
|
# This syntax is pretty ugly, alas
|
||
|
|
set pipe [open |[list ls -l] "r"]
|
||
|
|
fconfigure $pipe -encoding iso8859-1 -translation lf
|
||
|
|
set data [read $pipe]
|
||
|
|
close $pipe
|