openvms - 来自命令的 dcl 分配

Question

我是 DCL 的新手。

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

filePath=dir /since="time_now" [.SUBDIR]*.PNG/noheader/notrail

Answer 1

这不是我们使用 DCL 的方式。

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

DIR/SINCE=NOW ... 根据定义不会给出任何东西，因为从现在起什么都不存在。

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

查看帮助打开；帮助阅读[/END]；帮助词汇

谷歌示例。

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

谷歌示例。查看昨天的堆栈交换条目？！: OpenVMS - 如果文本像 x，则删除行

但如果你刚刚开始......恕我直言，只需跳过 DCL 并坚持使用 PERL

$ perl -e "for (<[.SUBDIR]*.PNG>) { next unless -M > 0.123; print; ... }"

祝你好运！海因

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

续：

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