|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey 2:5020/400 07 Mar 2007 09:16:01
To : All
Subject : Про копирования каталогов...
--------------------------------------------------------------------------------
Привет...
Подскажите плиииз, правильно ли я делаю... Исключения копирования каталогов
(перечисленных в файле) из корня в другое место...
Есть файлы с перечислением построчно каталогов, которые не надо копировать.
Hазвания файлов совпадают с именем сервера, если его нет, то default файл. И
вот что получилось
--------------------
#!/usr/bin/perl -w
$ETC = "/usr/local/etc/dir"
$SERVER=split(/,/, $ARGV[0]);
$SERVER =~ tr/a-z/A-Z/;
$fromdir="/tmp/fromdir";
$outdir="/tmp/outdir";
$CP="bin/cp";
sub COPY_DIR
{
my (@strs,$str,@dirs,$dir);
if ( -e $ETC/$SERVER\.excl)
{
open (EXC, "$ETC/$SERVER\.excl);
}
else
{
open (EXC, "$ETC/default\.excl");
}
while ( $exc = <EXC> )
{
chop;
opendir (D, $fromdir) or warn "Cannot open $fromdir: !" and next;
@dirs=grep {!(/^\./) && "$fromdir/$_"} readdir D;
rewinddir D;
foreach $dir (@dirs)
{
if ( -d ($dir ne $exc))
{
@strs=`($CP -pR -- $fromdir/$dir "$outdir") &2>1`;
foreach $str (@strs)
{
&Log(2,"$str");
}
closedir D;
}
close EXC;
}
-------------------------------
Подскажите плииз , что где не так... Или как может быть решить такую задачу
попроще, с помощью регекспов???
Буду благодарен любой посдсказке....
---------------------------
С уважением Сергей
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: SICE (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
