ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [Perl] Скрипт для отправки файла.
7 сообщений из 7, страница 1 из 1
[Perl] Скрипт для отправки файла.
    #38222919
alehander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alehander
Участник
Доброго дня,
Помогите решить задачу.
Нужен скрипт для пересылки файла на фтп после его создания .

Имеется bat файл который запускает WinRar и создает архив типа D:\archive\ -ag+DD-MM-YYYY[HH-mm]

Есть скрипт на перле
Код: python
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
use Net::FTP;
$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');
$ftp->cwd("/pub");
	  
while(<>) {
print "Sending $_ ... \n";
$ftp->put($_);
}
	  
$ftp->quit;


Как указать скрипту, что нужно брать тот файл который только что был создан?
...
Рейтинг: 0 / 0
12.04.2013, 08:54
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223423
S_Andrey_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S_Andrey_A
Участник
Код: python
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
use Net::FTP;

$file_name =" D:\archive\ -ag+DD-MM-YYYY[HH-mm]";

$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');
$ftp->cwd("/pub");
  
$ftp->put($file_name);
	  
$ftp->quit;
...
Рейтинг: 0 / 0
12.04.2013, 13:46
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223445
alehander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alehander
Участник
S_Andrey_A,

Как указать скрипту чтобы он выбрал файл который был создан сегодня?
DD-MM-YYYY[HH-mm] пишется винраром.
...
Рейтинг: 0 / 0
12.04.2013, 14:03
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223536
S_Andrey_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S_Andrey_A
Участник
Код: python
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
use Net::FTP;

$file_name =$ARGV[0];

$ftp = Net::FTP->new("some.host.name", Debug => 0);
$ftp->login("anonymous",'me@here.there');
$ftp->cwd("/pub");
  
$ftp->put($file_name);
	  
$ftp->quit;


В таком виде script.pl будет слать на ftp свой аргумент....
ну и потом как то так:
find . -ctime -1 -exec script.pl {} \;
...
Рейтинг: 0 / 0
12.04.2013, 14:45
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223543
S_Andrey_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S_Andrey_A
Участник
Ну или если при его архивации известно его имя вставить в архивирующий батник вызов script.pl
...
Рейтинг: 0 / 0
12.04.2013, 14:48
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223558
S_Andrey_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S_Andrey_A
Участник
S_Andrey_AВ таком виде script.pl будет слать на ftp свой аргумент....
ну и потом как то так:
find . -ctime -1 -exec script.pl {} \;

чего то я ступил... мы же я так понял на Виндавсе... Тогда так не пойдет- если только не нарыть аналог find для Win.
В общем как найти нужный файл, это уже другая задача_))
Можно Перлом искать файлы созданные ранее какой то даты или им же пройтись по папке и взять удовлетворяющие маске...или как я написал выше отправлять архив сразу после его создания.
...
Рейтинг: 0 / 0
12.04.2013, 14:54
| Ответить | Цитировать | Написать  
[Perl] Скрипт для отправки файла.
    #38223640
mhx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mhx
Гость
А что, отправить скрипту полный путь к файлу в качестве параметра никак?
И еще
Код: php
1.
2.
3.
4.
5.
use Net::FTP;
use strict;
use warnings;
my $file_name = shift;
# и т.д.
...
Рейтинг: 0 / 0
12.04.2013, 15:32
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [Perl] Скрипт для отправки файла.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]