Окт. 24, 2008, 2:36 п.п.
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my($ftp,$file,$v,$k,$a,$list,@file,@list,@a);
opendir(DIR,"/backup");
@file = grep { !/^\.{1,2}$/} readdir(DIR);
closedir(DIR);
$ftp = Net::FTP->new("HOST", Timeout => 30,Debug => 0 ) or die "unable to connect ftp\n";
print "Connect to server FTP: ok\n";
$ftp->login("LOGIN","PASS") or die "dont login\n";
$ftp->cwd("~") or die "cant change dir\n";
print "Login: ok\n";
@list = $ftp->dir() or die "cant list dir\n";
foreach $v (@list){
chomp($v);
@a = split(/\s+/,$v);
if($a[0] =~ /^\-+/){
if(check_file($a[8],@file) == 1){
$ftp->get($a[8]) or die "cant download file\n";
print "download $a[8]: ok\n";
}
}
}
$ftp->quit();
sub check_file {
my($k,@file,$f);
($f,@file) = @_;
foreach $k (@file){
if($k eq $f){
return 0;
}
}
return 1;
}
Please enable JavaScript to view the comments powered by Disqus.
Последние статьи
Окт. 31, 2011, 2:08 п.п.
Обновление timezone в Java
Сегодня взя Россия обновляет свои сервера, с ОС все достаточно просто, достаточно обновить пакет tzdata, timezone-data или еще как то специфично для конкретной ОС.www.oracle.com/technetwork/java/javase/tzupdater-readme-136440.html
Авг. 4, 2011, 3:40 п.п.
Мониторинг репликация Master-Master MySQL сервера.
На сервере должен быть установлен php с поддержкой mysqli.
1. Необходимо создать базу данных, на которой будет производится мониторинг.
# mysqladmin -u root create system_monitor
2. Далее в этой базе данных необходимо создать 2 таблицы:
CREATE TABLE `master_status` (
`replication_date` datetime DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=utf8
CREATE TABLE `slave_status` (
`replication_date ...
