Ubuntu-fr

elladan35

.

.

Dernière modification par elladan35 (Le 18/10/2016, à 15:14)

LeoMajor

Re : .

bonjour,
difficile à l'aveugle

expect "#" {    ou peut-être,    expect eof {

send "dir /recursive flash:\n"
expect "#" {
set ii -1
foreach line [split $expect_out(buffer) "\n"] {
# if {![regexp ".*total.*" $line]} {
  regsub  {^Directory.*:/(.*)} $line {\1} dir
  regsub  {^([0-9]+)\s+([drwx-]+)\s+(.*\s+){7}(.*)} $line {\1} size
  regsub  {^([0-9]+)\s+([drwx-]+)\s+(.*\s+){7}(.*)} $line {\2} type
  regsub  {^([0-9]+)\s+([drwx-]+)\s+(.*\s+){6}([0-9:]+)\s+} $line "" name
  if {![regexp ".*d.*" $type ]} {
  #puts "name $name type $type size $size"
  incr ii
  set tmp [string trim $dir]/[string trim $name]
  set items($ii) [ list $tmp [string trim $dir] [string trim $name] [string trim $type] [string trim $size] ]
  }
 }
#}
}
puts "iimax $ii"

foreach id [lsort -integer [array names items]] {
puts "items($id)=   $items($id)"
}

tu peux ajouter un log de capture de session avant d'invoquer spawn

#logfile
set formatclock [clock format [clock seconds] -format %H%M%S_%d%m%Y ]
set user_unix $::env(USER)
set home_unix $::env(HOME)
exec bash -c "mkdir -p $home_unix/fimap"
log_file -noappend "$home_unix/fimap/f_$formatclock.log" 

spawn ....

Tcl et Expect, c'est la même maison.