Итерировать с файлами в Openvms DCL

Question

У меня есть этот файл input.text скажем, 20 строк. (Хотя я хотел бы иметь возможность использовать любое количество строк)

Поэтому я хочу открыть указанный файл и использовать каждую строку, как если бы она была параметром для другой команды.

Эта другая команда будет принимать каждый параметр, выполнять свою функцию, а затем записывать вывод в другой файл.

Как я могу выполнить задуманное?

Answer 1

Вот пример файла команды DCL, который читает INPUT.TXT и использует найденные строки в качестве параметров для команды DIR, которая выводит в файл с именем DIROUT.TXT:

$! Read file using results as DIR command parameters...
$ file1="INPUT.TXT"
$ file2="DIROUT.TXT"
$ open/read chnl1 'file1'
$ on control_y then goto done_loop
$ on error then goto done_loop
$read_loop:
$ read/end_of_file=done_loop chnl1 opt1
$ write sys$output ">>> Sending DIR ",opt1," output to ''file2'..."
$ dir/out='file2' 'opt1'
$ goto read_loop
$done_loop:
$ close chnl1
$ write sys$output "Finished..."
$ EXIT

Вы должны быть в состоянии приспособить это к вашим требованиям.