Соорудил такой скрипт:

Код

#!/usr/bin/perl -w use strict; use Net::POP3; my $host = shift @ARGV; my $login= shift @ARGV; my $pass= shift @ARGV; my $pop =Net::POP3->new($host) || die $!; $pop->user($login); print "В вашем почтовом ящике ", $pop->pass($pass), " сообщений. \n"; $pop->quit;

запускаю с хостами pop.mail.ru, mail.land.ru (другие не пробовал) выдает такую ошибку:
Use of uninitialized value in numeric eq (==) at C:/Perl/lib/Net/POP3.pm line 57.
Bad file descriptor at mail_c.pl line 14.

Я так понял что происходят какие-то непонятные ошибки при создании обьекта, поэтому то и $obj неинициализирована. Но почему???
ведь вроде код верный. Модуль POP3 новый. Специально скачал. в чем причина?
Помогите, спасите!

Это сообщение отредактировал(а) Vaneska - 17.3.2005, 10:29

У меня так работает:

Код

#!/usr/bin/perl -w use strict; use Net::POP3; my( $host, $login, $pass ) = ( shift, shift, shift ); my $pop =Net::POP3->new($host) || die $!; $pop->user($login); print "У вас ", $pop->pass($pass), " писем. \n"; $pop->quit;

Вызывал так: С:\>perl script.pl pop.telenet.be логин пароль

Извеняюсь, что потревожил, но я полный чайник. Надо же было забыть в файерволе порты открыть. Бывает же такое.

Все работает на ура

Буду дальше скрипт писать..

А зачем так сложно? С тремя shift-ами? Кроме того не понятно из какого массива берутся значения, массив по умолчанию @_ но не @ARGV. Так чуть попроще...

Код

my( $host, $login, $pass ) = @ARGV;

Внутри подпрограммы по умолчанию @_, а вне подпрограммы @ARGV. Но твой вариат действительно проще.

Не знал, серьезно.... Почему то думал что @_ везде умолчательный. Впрочем для удобочитаемости лучше, по моему, явно указывать какой массив используется...

Kiber_rat - это ведь не так сложно запомнить.
Но в данном случае, самый актуальный, этот вариант:

Код

my( $host, $login, $pass ) = @ARGV;

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

Старая добрая привычка. Обьявляешь переменную - коментируешь. А при таком подходе одна переменная на одной строке.
а вообще Ваш вариант гораздо проще.
И вообще. Я перл приводит меня в неаписуемый восторг


Это сообщение отредактировал(а) Vaneska - 18.3.2005, 23:53

Цитата

И вообще. Я перл приводит меня в неаписуемый восторг

Я тебя понимаю.

Люди помогите!

В Perle не соображаю, но нужно получить почту из ящика с помощью указанного модуля, причем скрипт запускать из командной строки сервера, может готовый класс есть? Приму любую помощь!

http://search.cpan.org/search?query=pop3&mode=all

gcc: зря ты так, называй сразу таксу, зачем человека мучаться заставлять.

Если человек в PERL не бум бум, то пусть юзает outlook.