VPF::запуск программ - Форум программистов

korob2001

Дата 2.6.2005, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Конечно может, собственно это и было его изначальное предназначение.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Sadok

Дата 3.6.2005, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Rustty

Цитата

Перл может передовать файлы через Интернет(tcp/ip), мэйл?

Net::FTP - работаем с FTP
Net::SMTP - передаем почту
Net::POP3 - забираем почту
LWP - библиотека для www (почитай lwpcook, там куча примеров для нее)

Мне этого хватает, но есть еще куча всяких разных. http://search.cpan.org

Rustty

Дата 3.6.2005, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 23.5.2005

Репутация: нет
Всего: нет

А что возможен Upload? Можно сделать скрипт для скачивания файлов на определённый FTP сервер?

korob2001

Дата 3.6.2005, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Возможно всё, главное желание. smile

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Rustty

Дата 7.6.2005, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 23.5.2005

Репутация: нет
Всего: нет

Извините за назойливость,искал в Нете скрипты для FTP upload, и наткнулся на такой простенькийй пример. Прощу помощи для его настройки под мой компьютер,так как пока у меня не получается.

Код



[code=perl]
#!usr/bin/perl -w
sub ftp_extract {
my ($ftp_host) = @_;

my $ftp_input_file = "ad_extract.full";
my $ftp_output_file = "ad_extract.full";
my $ftp;
my $ftp_error = 0;


$ftp = Net::FTP->new ($ftp_host, timeout=>30, debug=>1) or $ftp_error=1;
if ($ftp_error) {

return 0;
}
$ftp->login ($ftp_user,$ftp_pass) or $ftp_error=1;
if ($ftp_error) {
$ftp->quit;

return 0;
}
$ftp->put ($ftp_input_file,$ftp_output_file) or $ftp_error=1;
if ($ftp_error) {
$ftp->quit;

return 0;
}
$ftp->quit;
return 1;
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »