comment le $expect_out travaille en TCL/ATTENDRE?

Si je veux correspondre DEF_23 à l'aide de la suite de regexp:

expect {
    -re "DEF_\[0-9]*"
    set result $expect_out(1,string)
}

pourquoi il est dit aucun élément dans le tableau?
comment ce $expect_out œuvres? et si je veux affecter le résultat comme DEF, comment obtenir le DEF à l'aide de regexp et de l'affecter à la variable de résultat?

  • Vouliez-vous dire pour avoir un supplément accolades autour de la set ligne? Sinon c'est un très étrange de expect en effet...
InformationsquelleAutor | 2012-06-15
  1. 10

    Vous êtes à la recherche pour expect_out(0,string) -- l'élément de tableau 1,string serait remplie si vous avez eu la capture des parenthèses dans l'expression régulière.

    La attendre man documents de l'utilisation de expect_out dans la documentation de la attendre commande:

    Correspondant à un motif (ou expressions du folklore ou full_buffer), toute correspondance et jusqu'à présent inégalé sortie est enregistrée dans la variable expect_out(tampon). Jusqu'à 9 regexp correspondances de chaîne sont enregistrées dans des variables expect_out(1,string) à expect_out(9,string). Si le -indices drapeau est utilisé avant un modèle, le début et la fin d'indices (dans une forme appropriée pour la lrange) des 10 chaînes de caractères sont stockées dans les variables expect_out(X,start) et expect_out(X,fin) où X est un chiffre, correspond à la sous-chaîne de caractères dans la mémoire tampon. 0 se réfère à des chaînes de caractères qui correspondent au motif entier et est généré pour glob modèles ainsi que les regexp modèles.

    Il y a un exemple dans la page de manuel.

    InformationsquelleAutor glenn jackman
  2. 1

    Il semble que cette explication n'est pas précis!
    Cochez cette exemple:

    $ cat test.exp
#!/usr/bin/expect

set timeout 5
log_user 0

spawn bash

send "ls -1 db*\r"
expect {
  -re "^db.*$" {
    set bkpfile $expect_out(0,string)
  }
}

send_user "The filename is: $bkpfile\n"

close
$ ls -1 db*
dbupgrade.log
$ ./test.exp
can't read "bkpfile": no such variable
    while executing
"send_user "The filename is: $bkpfile\n""
    (file "./test.exp" line 15)
$

    Le résultat du test est le même que $expect_out(1,string) ou $expect_out(tampon)est utilisé.
    Ai-je raté quelque chose ou c'est le comportement attendu?

    InformationsquelleAutor Aleksandar Aleksiev
  3. 0

    Aleksandar - cela devrait fonctionner si vous modifiez le match "\ndb.*$".

    Si vous tournez sur exp_internal 1, vous verrez la mémoire tampon contient quelque chose comme ceci: "ls -1 db*\r\ndbupgrade.log\r\n08:46:09"

    Donc, l'accent circonflexe (^) permettra de jeter votre correspondance du modèle off.

    InformationsquelleAutor Navjit Brar