如何使用GVPR将具有多个图形的DOT文件拆分为多个DOT文件？

Question

如何使用gvpr将包含DOT语言的多个图形的文件拆分为多个DOT文件？

输入（1个文件）：

# single.dot
digraph one {
  a -> b;
}
digraph two {
  c -> d;
}

输出（每个文件1个图表）：

# one.dot
digraph one {
  a -> b;
}

# two.dot
digraph two {
  c -> d;
}

Answer 1

BEG_G {
  fname = sprintf("%s.dot",$G.name);
  writeG($G, fname);
}