О POP3::Client

[Отец Никон]

В документации к этому модулю значится, что для удаления какого-либо сообщения с сервера надо вызвать $pop->delete($message_number)
и затем
$pop->Close();

Однако у меня это не работает. Прошу помочь.

[NeoNox]

В чем помочь?
Не удаляется или не закрывается?
Кстати, мы о Mail::POP3Client говорим?

[Отец Никон]

Да, о Mail::POP3Client, описался.

Не удаляется и не закрывается. Страница вообще не грузиться. И об ошибке не пишет.

[NeoNox]

Выложи сюда проблемный кусок кода.

[Отец Никон]

http://www.sura.ru/kerry/pub/check_mail.pl_

[NeoNox]

sub delete_ {
$pop->delete($numb_mess);
print "Deleted\\n";
$pop->Close();
}
Ты будешь удивлен значением $numb_mess
perldoc perlsub

[Отец Никон]

А что? У меня всё правильно. Как в командной строке передал, так и есть.

[Отец Никон]

Уважаемый NeoNox!
Объясни, в чём дело. Номер сообщения я передаю правильный. Не знаю, что тебе не понравилось.

[NeoNox]

Ну раз Уважаемый, тогда отвечу.
Мне не понравилось то, что ты ленишся включить элементарную отладку в своей программе и вместо этого ждешь несколько дней для того что-бы кто нибудь вместо тебя написал решение.
Вот так должно выглядеть начало твоей программы:
#!/usr/bin/perl -w

use Mail::POP3Client;
use MIME::Base64;
use MIME::QuotedPrint;
use CGI::Carp qw(carpout fatalsToBrowser);

-> Can\'t locate object method "delete" via package "Mail::POP3Client"
Далее сам все поймешь. Кстати и в логах все ошибки написаны.
Второе, так как ты параметры передаешь это не дело.
А решение простое как яйцо - есть метод Delete а метода delete нет!
Удачи.

[Отец Никон]

Ну спасибо, выручил. А отладку я всегда включаю, но тут почему-то даже не додумался этого сделать.

[kopachev]

А как включать отладку, вроде дебагера у perl`а нет?

[NeoNox]

Что ты вкладываешь в понятие дебагера?

[kopachev]

отладчик какой-нибудь.
А что значит "А <отладку> я всегда включаю"?

[NeoNox]

1. #!/usr/bin/perl -w
2. use CGI::Carp qw(carpout fatalsToBrowser);
3. use strict;