Posted to tcl by Stu at Fri Jun 09 03:07:05 GMT 2023view pretty
One line each: FileReader in.txt | FilterDoer ` tocalc {string toupper $value} | FilterDoer ` tocalc {regsub -all I $value A} | FileWriter out.txt ` configure -buffering full ` flush Or more structured-like: FileReader in.txt | FilterDoer ` tocalc {string toupper $value} | FilterDoer ` tocalc {regsub -all I $value A} | FileWriter out.txt ` configure -buffering full ` flush