скопировать версированные файлы в открытый регистр

Question

Мне нужен Perl-скрипт, с помощью которого я могу скопировать версионный файл (используя расширенный путь) в каталог. простая команда копирования здесь не работает. здесь версионные файлы

K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\1
K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\2
K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\3

Я хочу, чтобы эти файлы копировались и сохранялись вне представления в каталог. Как и первый версионный файл, он должен храниться в папке с именем 1, второй файл в папке 2,3-го файла в 3. Возможно ли это сделать с помощью Perl-скрипта.

Пожалуйста, дайте любые предложения. Большое спасибо заранее

Answer 1

Самый простой способ копирования файлов - использование динамического просмотра, в котором вы просто указываете номера версий:

copy "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\1" "1\test.java"
copy "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\2" "2\test.java"
copy "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\3" "3\test.java"

Если вы используете представление моментального снимка, вам нужно использовать следующие команды (это работает и для динамического просмотра):

cleartool get -to "1\test.java" "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\1"
cleartool get -to "2\test.java" "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\2"
cleartool get -to "3\test.java" "K:\views\jah\hakgs\sr\th\test.java@@\main\branch\view\3"

Answer 2

Проблема:

Если простая копия не работает, скрипт Perl тоже не будет.

Полагаю, K: \ views \ jah ... относится к представлению снимка.

Я бы рекомендовал сначала создать динамическое представление и попробовать тот же расширенный путь (я предполагаю, что hakgs - это VOB):

copy M:\jah_views\hakgs\sr\th\test.java@@\main\branch\view\1 \path\to\your\Directory1

Если это работает, вы можете инкапсулировать его в скрипт Perl, используя мой пакет ClearCase Perl .