Как закрыть лог файл expect

[prizes]

Есть скрипт подключающийся к pop.mail.ru и читающий письма командой top. Надо чтобы вывод команды top для каждого письма в цикле сохранялся в отдельный лог файл. Для этого существует строка в скрипте

Код: (TCL) [Выделить]

log_file $mail_n.log (где переменная mail_n номер письма и имя файла). Но вылетает ошибка

Код: (text) [Выделить]

cannot start logging without first stopping logging. Т.е. пока тот лог файл не закроется новый не создастся.
Вопрос: как закрыть?

Код: (TCL) [Выделить]

#!/usr/bin/expect -f
set ufile [open "idpisma.log" r]
spawn openssl s_client -ign_eof -connect pop.mail.ru:995
expect "+OK"
send "user имя_пользователя\r"
expect "+OK"
send "pass пароль\r"
expect "Welcome"
send "list\r"
foreach uline [split [read $ufile] "\n"] {
set mail_n [lindex $uline 0]
if { [string length $mail_n] > 0 } {
log_file $mail_n.log
send "top $mail_n 200 \r"
close
}
}
close $ufile
send "quit\r"
expect eof

[Azure]

• Почему не использовать 1 лог для всех писем? Зачем для каждого отдельный лог?
• Если надо сохранять вывод в отдельный файл, то почему не использовать просто перенаправление вывода?

[prizes]

долго думал что ответить, вообщем мне надо чтобы скрипт складывал в отдельные файлы смысловое сообщение письма(не служебное). Т.е
Вася.txt
   Привет как дела
   ......бла бла

Peter.txt
   Hello.
   How are you

Я ходел отфильтровать общий лог командой sed, но у писем почему-то формат не единный, да и со строками не угадаешь, нет жесткой последовательности в количестве. Есть идеи как это сделать?
Пользователь добавил сообщение 30 Апреля 2016, 05:05:13:Если сложить все письма в разные файлы, тут думаю получится командой sed вырезать служебную информацию сверху и снизу, оставив только само сообщение. Хотя может и не получится т.к. еще есть теги оформления, а это еще доп. строки. Ну как-то же это все-равно возможно

[Azure]

у писем почему-то формат не единный, да и со строками не угадаешь, нет жесткой последовательности в количестве. Есть идеи как это сделать?

Пока Вы не приведете все возможные форматы (в виде образца лог-файла) совет дать невозможно — хрустальный шар поломался.
Почему Вы читаете посты не полностью? Разве команда

Код: (TCL) [Выделить]

send "top $mail_n 200 \r" >$mail_n.logне делает что надо? Тогда через лог

Код: (TCL) [Выделить]

log_file $mail_n.log
send "top $mail_n 200 \r"
log_file

[prizes]

>$mail_n.log не прокатит т.к. этот синтаксис понимает bash, а у меня expect. Ну я попробовал, вот что выдал терминал

can't read "mail": no such variable
    while executing
"send "top $mail_n 200 \r" >$mail.log"
    ("foreach" body line 4)
    invoked from within
"foreach uline [split [read $ufile] "\n"] {
set mail_n [lindex $uline 0]
if { [string length $mail_n] > 0 } {
send "top $mail_n 200 \r" >$mail.log
clos..."
    (file "./read_letter.sh" line 10)

2-й вариант

log_file $mail_n.log
send "top $mail_n 200 \r"
log_file

создал 2 файла с именами 1.log и 2.log. Первый файл пустой во второй сложил ниже изложенный текст ошибки

send: spawn id exp7 not open
    while executing
"send "top $mail_n 200 \r""
    ("foreach" body line 5)
    invoked from within
"foreach uline [split [read $ufile] "\n"] {
set mail_n [lindex $uline 0]
if { [string length $mail_n] > 0 } {
log_file $mail_n.log
send "top $mail_n 20..."
    (file "./read_letter.sh" line 10)

[Azure]

1.
Как говорится найдите разницу

"send "top $mail_n 200 \r" >$mail.log"

send "top $mail_n 200 \r" >$mail_n.log

2.
Почему close внутри цикла? Что Вы закрываете каждую иттерацию?

[prizes]

Разницу нашел в кавычках. Но эти кавычки не в скрипте(в файле), а в выводе ошибки терминала. Т.е это интерпритатор вставил туда кавычки. Close не знаю для чего, когда гуглил нашел именно такой шаблон и он оказался рабочим. Close убрал, ничего не изменилось. Ну раз он не нужен оставил скрипт без него. Лог файл по прежнему нужно как-то закрыть для того чтобы цикл скрипта мог создать новый.

[Azure]

send "top $mail_n 200 \r" >$mail.log
send "top $mail_n 200 \r" >$mail_n.log

Так заметнее?
Это вообще должно работать если убрали close

Код: (TCL) [Выделить]

log_file $mail_n.log
send "top $mail_n 200 \r"
log_file

[prizes]

Это не то. Интуиция подсказывает что expect не понимает ввод в вайл символом > Это понимает bash.

+OK Welcome!
usage: send [args] string
    while executing
"send "top $mail_n 200 \r" >$mail_n.log"
    ("foreach" body line 4)
    invoked from within
"foreach uline [split [read $ufile] "\n"] {
set mail_n [lindex $uline 0]
if { [string length $mail_n] > 0 } {
send "top $mail_n 200 \r" >$mail_n.log
}
..."
    (file "./read_letter.sh" line 10)

[prizes]

не знаю почему до этого не работало, но сегодня заработало так:

log_file $mail_n.log
send "top $mail_n 200 \r"
log_file

Создал столько лог файлов сколько надо, но они пустые. Почему они пустые???

[mihasЬ]

prizes, Может не в тему, но 2 замечания - итерация -- грубо говоря - повторение. 2 - Почему бы логам не писаться при загрузке оси?

[prizes]

не много не уловил мысль. Вы имеете ввиду почему не писать общий лог в файл при подключении к pop.mail.ru и до самого завершения сессии? Если да, то мне надо раскидать каждое письмо в оттедльный текстовый файл. Не понял что такое загрузка оси(ось для меня это всегда была операционной системой, но здесь не об ОС идет речь)
Пользователь добавил сообщение 05 Мая 2016, 09:01:37:Все народ сам допер как это сделать. Ниже привожу уже готовый скрипт:

#!/usr/bin/expect -f
set ufile [open "idpisma.log" r] #объявляю переменную ufile значение которой равно файлу idpisma.log
spawn openssl s_client -ign_eof -connect pop.mail.ru:995  #подключаюсь к серверу
expect "+OK"         #найди +OK и если нашел
send "user имя пользователя"  #отправь команду user имя_пользователя
expect "+OK"         #найди +OK и если нашел
send "pass пароль\r"  #отправь команду pass пароль
expect "Welcome"      #найди Welcome и если нашел
log_file list.log     #начать логгинг
send "list\r"         #отправь команду pass пароль list
expect eol            #к этому пришел чисто интуитивно, ну как я понял это означает выдели все что породила предыдущая строка(найди конец строки)
log_file              #завершить логгинг. Остальное уже описывал выше.Короче устал описывать
foreach uline [split [read $ufile] "\n"] {
set mail_n [lindex $uline 0]
if { [string length $mail_n] > 0 } {
log_file $mail_n.log
send "top $mail_n 200 \r"
expect eol
log_file
}
}
close $ufile
send "quit\r"
expect eof

Но есть одно замечание все это работает с паузами перед созданием файла. Почему не знаю. Если в файлы не писать т.е это выполняется за 1 секунду.