Question

我是DCL的新手。

我希望在变量中输出命令并逐个迭代结果。

filePath = dir / since =＆＃34; time_now＆＃34; [.SUBDIR] *。PNG / NOHEADER / notrail

Answer 1

这不是我们如何使用DCL。

我们不做管道，但不是真的。

DIR / SINCE = NOW ...根据定义不提供任何内容，因为从现在开始没有任何内容存在。

使用/ OUT将目录输出粘贴到文件中，然后读取ans解析（F $ PARSE和/或F $ ELEMENT和/或F $ LOC）

查看HELP OPEN;帮助阅读[/ END];帮助词汇

谷歌的例子。

更高级的DCL脚本使用F $ PARSE，F $ SEARCH和F $ FILE（文件，CDT）来避免激活图像和创建临时文件：$ HELP LEXICAL

谷歌的例子。查看昨天的stack-exhange条目？！：OpenVMS - DELETE Line if TEXT like x

但如果你刚刚开始......恕我直言跳过DCL并坚持PERL

$ perl -e＆＃34; for（＆lt; [。SUBDIR] * .PNG＆gt;）{next除非-M＆gt; 0.123;打印; ......}＆＃34;

祝你好运！海因

Answer 2

顶

  file = f$search("[.subdir]*.PNG")
  if (file .eqs. "")then goto cont
  mtime=f$file_attribute(file,"RDT")
  if mtime.ges.build_start_time then -
      name=f>parse(file,,,"NAME")
      call CHECK "''name'"
  goto top

cont：

@Hein请查看此代码并提出更改建议

从命令中分配dcl

2 个答案: