LINUX.ORG.RU
решено ФорумAdmin

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

 


0

1

Читаю файл по строчно

set ufile [open "./txt.cfg" r] foreach uline [split [read $ufile] «\n»] { set commandconf [lindex $uline]

Нужно написать условие - если строка начинается с символа «#», то {}.

Подскажите пожалуйста как написать такое условие. P.S язык вообще не знаю, не приходилось с ним сталкиваться

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

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

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

tcl. Учи!

futurama ★★★★★ ()
Ответ на: комментарий от futurama

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)

NWMCStarik ()
Ответ на: комментарий от NWMCStarik

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

и т.д

NWMCStarik ()
Ответ на: комментарий от futurama
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] == false} {
	  
      }else{
	  expect "#"
	  send "$commandconf\r"
      }
  }
}
close $ufile
NWMCStarik ()
Ответ на: комментарий от NWMCStarik

Ошибочка

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
NWMCStarik ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.