Нужна помощь в expect

если строка начинается с символа «#»

if {[string match {#*} $uline]} {
   set uline {}
}

язык вообще не знаю

tcl. Учи!

set ufile [open "./txt.cfg" r] foreach uline [split [read $ufile] «\n»] { set commandconf [lindex $uline] if { [string length $commandconf] > 0 } { if {[string match {#*} $uline]} { }else{ expect «#» send «$commandconf\r» } } } close $ufile

ошибка - extra characters after close-brace while executing «if {[string match {#*} $uline]} { }e» invoked from within «if { [string length $commandconf] > 0 } { if {[string match {#*} $uline]} { }else{ expect »#" send «$commandconf\r» } ..." («foreach» body line 3) invoked from within «foreach uline [split [read $ufile] »\n"] { set commandconf [lindex $uline] if { [string length $commandconf] > 0 } { if {[string match {#*} ..." (file «test.exp» line 14)

set ufile [open "./txt.cfg" r]

foreach uline [split [read $ufile] «\n»] {

set commandconf [lindex $uline]

if { [string length $commandconf] > 0 } {

if {[string match {#*} $uline]} {

}else{

expect «#»

send «$commandconf\r»

}

}

}

Ошибка -

extra characters after close-brace

while executing

«if {[string match {#*} $commandconf]} {

и т.д

оформляй код в тегах
[code]
...
[/code]

глаза жалко

Ошибочка

set ufile [open "./txt.cfg" r]
foreach uline [split [read $ufile] "\n"] {
  set commandconf [lindex $uline]
  if { [string length $commandconf] > 0 } {
      if {[string match {#*} $uline]} {
	  
      }else{
	  expect "#"
	  send "$commandconf\r"
      }
  }
}
close $ufile

}else{

пробелы вокруг else добавь

Спасибо большое, чтобы я бы без Вас делал!)

Извиняюсь, ещё вопрос

Можно использовать файл с сайта?

set ufile [open "https://sity.ru/site/dlink_conf/filename/dlink_208.cfg" r]