Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.08.2018, 08:18   #1
Mastak777
 
Регистрация: 27.08.2018
Сообщений: 4
По умолчанию Архивирование на perl в windows

Проблема такая.
Архивирую некую папку на компе (в Windows).
Perl
Цитата:
#!/usr/bin/perl
use Archive::Tar;
my $gz='z:/home/test.my/httpdocs/backup/test.tar.gz';
my $ROOT='z:/home/test.my/httpdocs';
my $dir=$ROOT."/ap";
my $tar=Archive::Tar->new();
opendir D,$dir;
@File=readdir D;
my $ok=$tar->add_files(@File);
my $ok1=$tar->write($gz,9);
exit;
Все в принципе работает. Но только в Архиве файлы располагаются относительно диска z:
z:/home/test.my/httpdocs/ap/file1
z:/home/test.my/httpdocs/ap/file2 ...
а мне нужно, чтобы они были относительно ROOT.
/ap/file1
/ap/file2 ...
Можно переименовать всё
$tar->rename( $file, $new )
но на эту операцию уходит очень много времени (файлов порядка 100 тыс).
Для Линукса я решение знаю, через встроенный модуль gzip.
Подскажите, как можно решить эту проблему с использованием Archive::Tar.

Последний раз редактировалось Mastak777; 27.08.2018 в 08:29.
Mastak777 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Python vs Perl, Я выбрал Perl! Причина: а черт ее знает но наверное дело в философии и синтаксисе(TMTOWTDI ) Sna1L Perl 0 13.12.2011 14:10
нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк) PERL newbies Perl 7 03.08.2009 22:25