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}]
 }