Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 27.08.2018, 09:18   #1
Mastak777
Новичок
 
Регистрация: 27.08.2018
Сообщений: 1
Репутация: 10
По умолчанию Архивирование на 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 в 09:29.
Mastak777 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вакансии REG.RU: программист Perl и ведущий разработчик (Perl) REG.RU Работа на постоянной основе - Вакансии 0 20.12.2011 19:57
Python vs Perl, Я выбрал Perl! Причина: а черт ее знает но наверное дело в философии и синтаксисе(TMTOWTDI ) Sna1L Perl 0 13.12.2011 14:10
Требуется web-программист (perl или php, готовый переучиться на perl). офис в Казани uCoz Работа на постоянной основе - Вакансии 0 20.01.2011 19:03
нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк) PERL newbies Perl 7 03.08.2009 22:25
Требуется: Разработчик Perl / Программист–аналитик Perl verait Работа на постоянной основе - Вакансии 0 07.05.2009 12:51


20:55.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru