/
MadDAD
/
TFS4OpenConf
Обзор
Документация
Войти
/
MadDAD
/
TFS4OpenConf
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
gcomp/scripts/Metadata_works/unique_ids.pl
24 строки
482 B
DmitryDreytser
Выгрузил исходники
01 фев 2017, 17:19
01 фев 2017, 17:19
b9402b1
Код
Авторство
О чём код?
use locale; use Getopt::Long; use MetadataWorks; $usage = <<EOF �������������: perl unique_ids.pl [���������] ��������� ����� ����: -d <dir> - ������� � ����������� �������������. �� ��������� - ������� �������. EOF ; #default values $root_dir = "."; GetOptions("dir|d=s" => \$root_dir) or die Metadata::wintodos($usage); Metadata::Start($root_dir); if( Metadata::MakeIDsUnique() > 0 ) { Metadata::Stop(); } exit(Metadata::CheckTextIDs());