IT-Expert
  IT-Expert / Веблог / Простой скрипт очистки FTP от устаревших бекапов
Авторизация
Логин:
Пароль:


 
Поиск по записям:

Ключевые слова:
Записей в блоге
 за 2015 год
 за 2014 год
 за 2013 год
 за 2012 год
 за 2011 год

     за 2010 год

       за 2009 год
       за 2008 год
       за 2007 год
       за 2006 год
       за 2005 год
      RSS лента Лента новостей IT-Expert 
      Лента подкастов IT-Expert IT-Expert audiopodcasts

      Простой скрипт очистки FTP от устаревших бекапов

      13:58, 16 января 2006 ( FreeBSD Backup  )

      Выполняет удаление всех файлов в удаленной дир-рии  на ftp mysql, у которых в названии дата не совпадает с сегодняшней. Есессено, скрипт нуждается в доработке, но тем не менее, к использованию вполне пригоден. Пользуюсь совместно со скриптом резервного копирования, о котором я уже писал.


       

      #!/usr/bin/perl
      use Net::FTP;
      use POSIX;

      $host="ftp.xxx.ua";
      $user="yyyy";
      $passwd="zzzz";

      $datestr = strftime("%Y-%m-%d", localtime);

      $ftp= Net::FTP -> new($host, Debug=>0);
      $ftp->login($user,$passwd);
      $ftp->cwd("./mysql");

      print $ftp->pwd(),"\n";

      @a=$ftp->ls();
      foreach(@a){
       $fname=$_;
       if(not $fname=~/$datestr/){
        print "not match $match $fname... deleted\n";
        $ftp->delete($fname);
       }
      }

      $ftp->quit();
       


      Оставить комментарий
      © Максим Прокопов 2005-2016 О сервере