Posted to tcl by dandyn at Mon Sep 09 11:03:10 GMT 2024view pretty
### LIST FROM FILE # Create a list from file. proc ListFromFile {file} { return [lsearch -regexp -inline -all [lreplace [split [read [open $file r]] "\n"] end end] {^[^#]; close $file}] }