与VMS文件名匹配的正确的REGEXP模式是什么？

Question

文档 http://h71000.www7.hp.com/doc/731final/documentation/pdf/ovms_731_file_app.pdf （第5-1节）说，该文件名应该看起来像这样：

node::device:[root.][directory-name]filename.type;version

它们中的大多数是可选的（例如节点，设备，版本） - 不确定哪些以及如何在Regexp（包括目录名称）中正确编写此内容：

DISK1:[MYROOT.][MYDIR]FILE.DAT

DISK1:[MYDIR]FILE.DAT

[MYDIR]FILE.DAT

FILE.DAT;10

NODE::DISK5:[REMOTE.ACCESS]FILE.DAT

Answer 1

请参阅文档和来源 VMS :: FILESPEC PERL模块。

Answer 2

从维基百科（Wikipedia），完整表格实际上远不止于此：

NODE"accountname password"::device:[directory.subdirectory]filename.type;ver

这花了一段时间，但是这里有一个表达式应该接受所有有效的变化，并将组件放入捕获组中。

(?:(?:(?:([^\s:\[\]]+)(?:"([^\s"]+) ([^\s"]+)")?::)?([^\s:\[\]]+):)?\[([^\s:\[\]]+)\])?([^\s:\[\]\.]+)(\.[^\s:\[\];]+)?(;\d+)?

另外，据我所知，您的例子

DISK1:[MYROOT.][MYDIR]FILE.DAT

不是有效的名称。我相信只允许一对支架。我希望这有帮助！

Answer 3

您可能会为此提出单个复杂的正则罚款，但是如果您从左到右进行操作，则可以更轻松地阅读代码。以下是一些python代码，可以做到这一点：

lines = ["DISK1:[MYROOT.][MYDIR]FILE.DAT", "DISK1:[MYDIR]FILE.DAT", "[MYDIR]FILE.DAT", "FILE.DAT;10", "NODE::DISK5:[REMOTE.ACCESS]FILE.DAT"]
node_re = "(\w+)::"
device_re = "(\w+):"
root_re = "\[(\w+)\.]"
dir_re = "\[(\w+)]"
file_re = "(\w+)\."
type_re = "(\w+)"
version_re = ";(.*)"
re_dict = {"node": node_re, "device": device_re, "root": root_re, "directory": dir_re, "file": file_re, "type": type_re, "version": version_re}
order = ["node", "device", "root", "directory", "file", "type", "version"]
for line in lines:
    i = 0
    print line
    for item in order:
        m = re.search(re_dict[item], line[i:])
        if m is not None:
            print "  " + item + ": " + m.group(1)
            i += len(m.group(0))

输出是

DISK1:[MYROOT.][MYDIR]FILE.DAT
  device: DISK1
  root: MYROOT
  directory: MYDIR
  file: FILE
  type: DAT
DISK1:[MYDIR]FILE.DAT
  device: DISK1
  directory: MYDIR
  file: FILE
  type: DAT
[MYDIR]FILE.DAT
  directory: MYDIR
  file: FILE
  type: DAT
FILE.DAT;10
  file: FILE
  type: DAT
  version: 10
NODE::DISK5:[REMOTE.ACCESS]FILE.DAT
  node: NODE
  device: DISK5
  directory: REMOTE.ACCESS
  file: FILE
  type: DAT