вот накидал
Консоль:
root@server:/home# cat test.pl
#!/usr/bin/perl
$pat = "/data/share/drweb";
my @file =`ls $pat`;
$pa = "/home/test.sp";
open (FH1, "> $pa");
for $line (@file)
{
print FH1 "$pat/$line";
}
`tar --files-from="/home/test.sp" -czf "/home/test.tgz" >> /var/log/test`
Проверяем список
Консоль:
root@server:/home# cat test.sp
/data/share/drweb/alert.wav
/data/share/drweb/bg-drweb.chm
/data/share/drweb/bg-drweb.dwl
/data/share/drweb/cn-drweb.chm
/data/share/drweb/cn-drweb.dwl
/data/share/drweb/cn-tom-drweb.dwl
/data/share/drweb/cs-drweb.chm
/data/share/drweb/cs-drweb.dwl
/data/share/drweb/cured.wav
/data/share/drweb/de-drweb.chm
Запускаю, ждём пока выполнит
Консоль:
root@server:/home# ./test.pl
tar: Удаляется начальный `/' из имен объектов
Смотрим
Консоль:
root@server:/home# ls
test.pl test.sp test.tgz
Архив как положено.
Вам просто надо подождать пока не выполнит до конца
Ищу дополнительный заработок (удалёнка).
Пьянка без секса – признак алкоголизма.