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