Цитата(wolter @ 30.1.2008, 00:32  ) | | 1. Приведу пример, допустим выполняеться скрипт, он смотрит в папку на локальном диске и если видет там новый файлы ТО, ПОДКЛЮЧАЕТЬСЯ К НЕТУ, ПРОВЕРЯЕТ, ЕСТЬ ЛИ ИНЕТ, А ПОТОМ ОТСЫЛАЕТ ФАЙЛ И ОТКЛЮЧАЕТЬСЯ ОТ НЕТА. |
Имхо подключение/отключение реализуемо только на WinAPI. MSDN и Win32::API тебе в помощь)
Спросил у знакомого программиста, итак, в какую сторону тебе ковырять:- Ф-ии ответственные за операции с диалапом находятся в библиотеке rasapi.dll, прототипы ф-ий можно найти в заголовке ras.h
- Проверить наличие активного соединения тебе поможет ф-ия BOOL InternetGetConnectedState(LPDWORD lpdwFlags,DWORD dwReserved);.
Ниже пример в принципе тоже самое сделает, грубо говоря, но не так элегантно имхо) :
| Код |
use LWP::Simple;
print 'Connected to Internet' if head 'http://www.ru';
|
Теперь по поводу определения новых локальных файлов: писал я когда-то скрипт, который тоже должен был выполнять такой функционал. Собственно вырезка из моего кода (я там лишнее повырезал, но часть пришлось оставить в сабе startScan, чтобы смысл сохранить):
| Код |
# Функция создание таблицы хэшей
sub buildHashTable
{
my $current = shift || $ROOT;
# Рекурсивный обход всех директорий и файлов начиная с $ROOT
opendir(DIR, $current) || die $!;
while(my $entry = readdir DIR)
{
# Отбрасывание ненужных файлов
next if $entry eq '.' || $entry eq '..';
my $subCurrent = $current . _slash() . $entry;
buildHashTable($subCurrent) if -d $subCurrent;
# Записать пару файл=>хэш в файл-базу
print BASE $subCurrent, '=>', calculateHash($subCurrent), "\n" if -f $subCurrent;
next;
}
close DIR;
1;
}
sub startScan
{
my $path = shift || $ROOT;
my $retval = 0;
# Загружаем базу файлов
loadHashTable(\my %base);
# Рекурсивный обход всех директорий и файлов начиная с $ROOT
opendir(DIR, $path) || die $!;
while(my $entry = readdir DIR)
{
next if $entry eq '.' || $entry eq '..';
my $subCurrent = $path . _slash() . $entry;
startScan($subCurrent) if -d $subCurrent;
# Если текущий хэш файла не соответсвует хэшу из базы, (т.е. файл изменен)
# выполняем действие в зависимости от выбранной политики
if(exists $base{$subCurrent})
{
unless($base{$subCurrent} eq calculateHash($subCurrent))
{
$retval++;
&$ACTION($subCurrent);
}
}
# Если файла нет в таблице -
# выполняем действие в зависимости от выбранной политики
else
{
$retval++;
&$ACTION($subCurrent);
}
}
close DIR;
$retval;
}
sub calculateHash
{
my $name = shift;
open(FILE, $name) || die $!;
binmode FILE;
my $hash = Digest::MD5 -> new -> addfile(*FILE) -> hexdigest;
close FILE;
$hash
}
sub _slash { return $^O eq 'MSWin32' ? '\\' : '/' }
|
Определять новые файлы на удаленном FTP можно парсингом ответа метода ls из модуля Net::FTP.
Думаю все) |
, а как известно учиться лучше всего на практике.
(т.е. вопрос = ваш пункт).
)
