Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Perl

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Раскрутка и оптимизация сайта в Интернете" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2013   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Калашников О.А.

Статистика

3 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Perl


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Коцюрбенко Алексей aka Жерар
Статус: Советник
Рейтинг: 3991
∙ повысить рейтинг » 		Абаянцев Юрий Леонидович aka Ayl
Статус: Профессионал
Рейтинг: 1761
∙ повысить рейтинг » 		Хватов Сергей
Статус: Академик
Рейтинг: 608
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Perl (Перл)

Номер выпуска:146
Дата выхода:14.05.2013, 10:30
Администратор рассылки:Коцюрбенко Алексей aka Жерар (Советник)
Подписчиков / экспертов:38 / 10
Вопросов / ответов:3 / 3

Консультация # 23480: Здравствуйте ув Эксперты. Я хочу обработать данные пришедшие через метод POST. даннеие : имя , мейл , и текст мне нужно что бы мне на емейл пришел этот меседж. а человеку который это написал, ему на емейл который он указал пришло уведомление что "мы получили ваше письмо спасибо вам". а после этого автоматически открыва...

Консультация # 52136: как можно использовать прокси, если скрипт подключается через сокеты и получает данные подскажите название модуля...
Консультация # 44309: Нужно прочитать файл и определить количество определенных байтов. Я делаю так: my $data; open FILEFIND, $_[0]; binmode FILEFIND; seek(FILEFIND, 0, 2); my $count = tell(FILEFIND); seek(FILEFIND, 0, 0); read(FILEFIND, $data, $count); close FILEFIND; my $total = 0; for (my $i = 0; $i < $count;...

Консультация # 23480:

Здравствуйте ув Эксперты.
Я хочу обработать данные пришедшие через метод POST.
даннеие : имя , мейл , и текст
мне нужно что бы мне на емейл пришел этот меседж.
а человеку который это написал, ему на емейл который он указал пришло уведомление что "мы получили ваше письмо спасибо вам".
а после этого автоматически открывалась предидущая страница.
всем заранее спасибо

Дата отправки: 14.07.2005, 09:50
Вопрос задал: КиберТварь
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Alexey Kobelev:

Здравствуйте, КиберТварь!
Для отправки этой инфы на мыло используй Net::SMTP.
Решение примерно такое:
#Получаем данные
$name = param(\'name\');
$mail = param(\'mail\');
$text = param(\'text\');
#Отправдяем себе на мыло
use Net::SMTP;

$smtp_server = "smtp.server.com";#сервер через который отправим письмо
$smtp_account = "account@server.com"; # account на этом сервере
$smtp = new Net::SMTP $smtp_server;
$email = "smbdy@mail.com";# Кому отправить
$smtp->mail($smtp_account);
$smtp->to($email);
$smtp->data();
$smtp->datasend("To: $email");
$smtp->datasend("Subject: subj");
$smtp->datasend("\n\n");
$smtp->datasend("Message from $name\n");
$smtp->datasend("Email: $mail\n");
$smtp->datasend($text);
$smtp->dataend();

$smtp->quit;

Ну а подтверждение пользователю отправляется аналогично.

Консультировал: Alexey Kobelev
Дата отправки: 14.07.2005, 13:47
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 52136:

как можно использовать прокси, если скрипт подключается через сокеты и получает данные
подскажите название модуля

Дата отправки: 14.08.2006, 23:25
Вопрос задал: Pessom
Всего ответов: 1
Страница онлайн-консультации »

Консультирует dianacode:

Доброе время суток, Pessom

cpan рулит ? ) "socket proxy" нашла:
http://search.cpan.org/~book/Net-Proxy-0.06/lib/Net/Proxy.pm

с уважанием, удачи

Консультировал: dianacode
Дата отправки: 15.08.2006, 09:57
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 44309:

Нужно прочитать файл и определить количество определенных байтов.
Я делаю так:

my $data;
open FILEFIND, $_[0];
binmode FILEFIND;
seek(FILEFIND, 0, 2);
my $count = tell(FILEFIND);
seek(FILEFIND, 0, 0);
read(FILEFIND, $data, $count);
close FILEFIND;

my $total = 0;

for (my $i = 0; $i < $count; $i += 2) {
if ($data[$i] == <байт> && $data[$i] == <байт>) {
$total++;
}
}

Не работает, естественно, т.е не работает цикл для проверки, сами данные нормально размещаются в $data. Как строку парсить по байтам? Можно ли это сделать через рег. выражение? По сути нужно сосчитать количество байт, а точнее количество пар байт, удовлетворяющих моим условиям.

Дата отправки: 26.05.2006, 16:06
Вопрос задал: RedDevil
Всего ответов: 1
Страница онлайн-консультации »

Консультирует -OC- (Специалист):

Здравствуйте, RedDevil!
насколько я понял вам нужно найти в двоичном вайле колличество последовательностей байтов <байт1><байт2>. Если так, то попробуйте заменить ваш цикл на такую конструкцию:

Приложение:

Консультировал: -OC- (Специалист)
Дата отправки: 26.05.2006, 20:53
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное