3

http://h71000.www7.hp.com/doc/731final/documentation/pdf/ovms_731_file_app.pdf （第 5-1 节）上的文档说文件名应如下所示：

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

它们中的大多数是可选的（如节点、设备、版本） - 不确定哪些以及如何在正则表达式中正确写入（包括目录名称）：

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

DISK1:[MYDIR]FILE.DAT

[MYDIR]FILE.DAT

FILE.DAT;10

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

3 回答 3

4

请参阅 VMS::Filespec Perl 模块的文档和源代码。

于 2010-12-16T20:36:20.230 回答
3

来自维基百科，完整的形式实际上不止于此：

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

这需要一段时间，但这是一个应该接受所有有效变体并将组件放入捕获组的表达式。 

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

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

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

不是有效的名称。我相信只允许使用一对括号。我希望这有帮助！

于 2010-12-16T21:16:52.177 回答
1

你可能会为此想出一个复杂的正则表达式，但如果你从左到右剥离每个部分（如果有的话），阅读你的代码会容易得多。以下是一些执行此操作的 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
于 2010-12-16T20:47:36.753 回答