Code: Select all
set my_file [open "some_txt_file.txt" w]
close $my_file
Code: Select all
set my_file [open "some_txt_file.txt" w]
close $my_file
Code: Select all
[tomekk@zonk]:/home# echo "puts [regexp {^[a-z]{1,255}[a-z]{0,255}[a-z]{0,2}$} "<512 a chars in here>" ]" | tclsh
1