使用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

您应该能够根据您的要求进行调整。