Всем привет!

Перцы, мне очень срочно надо! Помогите! Мне надо, чтобы какой-нибудь текст можно было отправлять на мыло! Через SMTP!!! Обьясните принцип и напишите, пожалуйста, самую простейшую программку!!!! HELPPPP MMEEE, PLSSSS!!!

perldoc Net::SMTP
Там и пример есть.

Спасибо, а можно, чтобы не использовать use Mail::Sendmail; ?

Добавлено @ 13:54
И не могу найти то, что ты сказал. Дай, пожалуйста, точную ссылку, а если не сложно, приведи пример здесь... очень нужно!!!
Добавлено @ 13:55
Заранее багодарен!

Цитата

И не могу найти то, что ты сказал. Дай, пожалуйста, точную ссылку, а если не сложно, приведи пример здесь... очень нужно!!!

В командной строке введи следующую команду:
C:\>perldoc Net::SMTP

Если модуль установлен, значит получишь документацию к модулю Net::SMTP.
Если в ответ получишь что-то типа No documentation found for "Net::SMTP", то это говорит о том, что данного модуля у тебя нет. Тогда нужно его установить, а затем повторить комманду указанную выше.

Это сообщение отредактировал(а) korob2001 - 5.9.2004, 15:05

Ты так и не ответил на вопорос:

... так а можно не использовать модуль? Как-нибудь отправить письмо без него?
Добавлено @ 17:53
А за команду спасибо. Поробую!

лучше через сендмеил а то вдруг к них smtp сервака нет ...

Блинн!! Народ! Ну пожалуйста, вставьте мне пример готового крипта, который будет просто отправлять письма на указанны мэйл!!!! Я вас умоляю!!!!!


Добавлено @ 18:23
Извините, что столько смайлов, но МНЕ ОЧЕНЬ нужна помощь!!! Я не разобрался в этойй доке.!!!

Вот пример из документации к модулю Net::SMTP. Проверил лично, все прекрасно работает.

Код

#!/usr/bin/perl -w use strict; use warnings; use Net::SMTP; my $server = "smtp.mail.ru";  # Укажи smtp сервер my $mail_to = '[email protected]'; # E-mail адрес получателя my $message = "Это просто тестовое сообщение!"; # Сообщение my $smtp = Net::SMTP->new( $server );   $smtp->mail( $ENV{ USER } );   $smtp->to( $mail_to );   $smtp->data();   $smtp->datasend("To: $mail_to\n");   $smtp->datasend("\n");   $smtp->datasend("$message\n");   $smtp->dataend();   $smtp->quit;

Удачи.

korob2001 Вы -w по привычке поставили ? ))

Код

open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq") or die "Can't fork for sendmail: $!\n"; print SENDMAIL << "EOF";        From: Fancy Chef <[email protected]>        To: Grubby Kitchenhand <[email protected]>        Subject: Re: The Perl Cookbook        (1) We will never finish the book.        (2) No man who uses EMACS is deserving of love.        (3) I recommend coq au vi.        Frank Wah EOF close(SENDMAIL);

ElectricalStorm
перец просил через SMTP

напишите для Mail::Sender

Bezdna,

если не можешь сам, то попробуй MIME::Lite, там в документации все примеры есть.

Так в догонку

А как и с помощью какого модуля можно присоединить файлы? Где это можно почитать? Или может дадите ссылку на примерчик...    
 

очень простой модуль MIME::Lite
метод attach ;) 
З.Ы.: примеры в модуле! 

спасибо!

Добавлено @ 21:51 
а может еще поскажешь, какой модуль позволяет открыть окно ("типа сохранить как")  и выбрать директорию, куда сохранить файл.
P.s. сохранение прикрепленных файлов 

это уже js 

js - это java script? а с помощью перла это никак не сделать?   

Nika, 
JS (JavaScript)- выполняется на стороне клиента, perl - на стороне сервера. 
Хотя если так хочется на perl, то смотри в сторону PerlScript   

    

Это сообщение отредактировал(а) sharq - 4.5.2006, 10:18

Если хочешь открывать окно "Сохранить как...", то пиши ActiveX приложение, это должно делаться на стороне клиента. Можно ещё попробовать через Applet, но там будут больше заморочек. Так как классы Java отвечающие за безопасность, не позволят из аплета обратиться к системе, если конечно апплет не подписан. 

ясно, буду смотреть Java. Спасибо... 

Гммм.... еще один вопросик про прикрепленные файлы и письма.... Я забираю почту по POP3, используя Net::POP3.  Метод get... Он забирает все письмо вместе с прикрепленными файлами... Как отделить, заголовок, получателя, отправителя, размер, прикрепленные файлы.... Это надо делать вручную (в смысле с помощью строковых функций) или есть уже написанные модули для этого (В документации Net::POP3 это не описано)? 

очень хороший пакет модулей MIME::Tools, из него можешь использовать MIME::Parser  

Это сообщение отредактировал(а) nitr - 6.5.2006, 23:37

спасибо! Буду смотреть...  

Здравствуйте, у меня такой вопрос. Я обрабатываю почту  с помощью модулей MIME. Но у меня проблема с кодировкой. Кириллица приходит так :=?koi8r?B?7sHT1NLPysvJINDP3tTP18/HzyDL?= =?koi8r?B?zMnFztTB? (это заголовок)   хЧБЦБЕНЩК РПМШЪПЧБФЕМШ РПЮФПЧПЗП УЕТЧЙУБ (это тело сообщения) Как надо обработать эти данные, чтобы отображалось cp1251? 

можно использовать модуль Encode
пример:


Добавлено @ 20:39 
если хочешь знать,  из какой в какую кодировки можно, то введи
> perldoc Encode::Supported 

Сейчас буду пробовать. Спасибо  

Для тела сообщения это помогло, а вот заголовок все такой же некрасивый   
Я в этом не сильна, но мне кажется, что при отправке письма заголовок на кириллице кодируется в MIME с помощью  стандартной функции в вышеуказанное непонятное, сответственно, должна быть какая-то стандартная функция его раскодировки в данном наборе модулей. Я правильно понимаю?  

всё просто:


Добавлено @ 09:24 
Вы всё верно поняли, но почему не пробуете?

?koi8r?B? - кодировка кои8-р в base64 

Пробовала, но что-то голова не варила и ничего не получалось. 
Как ты сказал, не работае. А вот так:


у меня работает.

Добавлено @ 17:32 
Спасибо за помощь   

думаю ты просто не установила модуль MIME::Base64 (искать на search.cpan.org)
но твой код анолагичен ;) З.Ы. Всегда пожалуйста. 

Установила. Но что-то не пошло, как ты сказал. Там, во-первых, нет проверки, что надо, а что не надо декодировать. А во-вторых, даже что надо он неправильно декодирует.   

Я хочу спросить совета.... Я храню в MySQL письма. С помощью модуля MIME я получаю дату в виде Fri, 28 Jan 2005 11:30:23 +0000. Как мне ее лучше хранить в таблице, чтобы можно было задавать по этому полю сортировку (пока у меня как строка и сортирует соответственно по алфавиту   )? Переделывать в datetime? Или, может,  как число хранить (на подобие которого выдает функция time()). вообще есть такая функция, обратная , localtime(), которая из Fri, 28 Jan 2005 11:30:23 +0000  сделает число (как time).  Кстати, дата в письме всегда в таком виде? Или каждый ставит ее как хочет?  

ну неужели никто не хранил почту в  MySQL?     

>perldoc perlfunc
тама есть Time-related functions

А зачем почту в БД?  Чтобы поиск по ней чтоль... Мне проще с хешами работать -  DB_File 

Не знаю, я посчитала, что так удобнее: и отсортировать по любому полю, и разные sql запросы....   В общем, я почти доделала, так что сейчас переходить на хэши поздно 
Сейчас еще раз посмотрю функции. Я смотрела раньше, но не нашла   

так, я возвращаюсь опять к кодировке... Вышеуказанные строки декодируют из koi8-r в1251. А если я не знаю из нчально кодировки... Есть какой-нибудь модуль, который автоматически определяет кодировку текста?   

проще всего:
 сделай на эту строчку рег. выражение. И потом используй:
...decode($1, $str)... сделай "под себя"
 

не... Это не всегда будет срабтывать, потому что мне надо определять кодировку не только заголовков, но и текста письма. Т.е. например, заголовки (head), в письме были на латиннице,  а  тело на русском. Я получается после проверки не буду письмо декодировать и письмо получится с кривой кодировкой.
Как определить кодировку у такого текста  хЧБЦБЕНЩК РПМШЪПЧБФЕМШ РПЮФПЧПЗП УЕТЧЙУБ  (здесь я понимаю, он явно задан в koi8-r,  а если другая кодировка, но уже юез mime_encode)  Я читала на сайте про модудь Lingua. Кто-нибудь что-нибудь знает про этот модуль? Это то что мне надо? 
P.S. Я хотела скачать  с search.cpan.org, но их там очень много,  не подскажите какой,  если, конечно это то,что мне надо.     

Lingua::RU::Charset  

Спасибо       

Этот модуль не очень хороший, он не доработан. Лучше делать так:


    
Всем спасибо