[Perl] Новичкам: задаем вопросы

#11

26.05.2008, 00:40

ZET36

Участник форума

Регистрация: 08.10.2007

Сообщений: 259

Провел на форуме:
500748

Репутация: 137

Цитата:

Сообщение от Kaimi

Попробуй так:

Вылазиет ошибка

Цитата:

Can't call method 'mail' on an undefined value at [путьк скрипту]

Вроде модуль Net::SMTP установлен (устанавливал через Gui интерфейс) решил если не установился инсталить через командную строку (ppm-shell.bat)

вот её ответ

Цитата:

ppm> install Net::SMTP
Downloading ActiveState Package Repository packlist...not modified
No missing packages to install

что я не так делаю

потом решил устанавливать через cpan шелл

Цитата:

D:\Documents and Settings\zz>perl -MCPAN -e shell

cpan shell -- CPAN exploration and modules installation (v1.7602)
ReadLine support enabled

cpan> install Net::SMTP
CPAN: Storable loaded ok
Going to read D:\Perl\cpan\Metadata
Database was generated on Fri, 18 Apr 2008 10:29:50 GMT
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
http://ppm.activestate.com/CPAN/authors/01mailrc.txt.gz
Going to read D:\Perl\cpan\sources\authors\01mailrc.txt.gz
Fetching with LWP:
http://ppm.activestate.com/CPAN/modules/02packages.details.txt.gz
Going to read D:\Perl\cpan\sources\modules\02packages.details.tx t.gz
Database was generated on Sat, 24 May 2008 08:30:29 GMT

There's a new CPAN.pm version (v1.9205) available!
[Current version is v1.7602]
You might want to try
install Bundle::CPAN
reload cpan
without quitting the current session. It should be a seamless upgrade
while we are running...

Fetching with LWP:
http://ppm.activestate.com/CPAN/modules/03modlist.data.gz
Going to read D:\Perl\cpan\sources\modules\03modlist.data.gz
Going to write D:\Perl\cpan\Metadata
Net::SMTP is up to date.

и опять эта ошибка при запуске скрипта

Цитата:

Can't call method 'mail' on an undefined value at [путьк скрипту]

хы странно а сейчас никакой ошибки нет при запуске скрипт подумает секунды 2 и успешно закрывается но письма на maskit7@mail.ru неприходит может я не так отредактировал исходник?

Код:

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mail.ru');
$smtp->mail('sde@mail.ru'); 
$smtp->to('maskit7@mail.ru');
$smtp->data(); 
$smtp->datasend('To: maskit7@mail.ru');
$smtp->datasend('From: sde@mail.ru');
$smtp->datasend("\n");
$smtp->datasend("Microsoft\n");
$smtp->dataend();               
$smtp->quit;

помогите пожайлусто , кто решит мою беду тому на протяжении недели каждый день буду ставить по +Max

Последний раз редактировалось ZET36; 26.05.2008 в 02:34..