Snobol4【1】 语言实战：XML【2】 节点属性【3】遍历实战
Snobol4 是一种古老的编程语言，最初由 Calvin Mooers 在1962年设计。它以其简洁的语法和强大的字符串处理【4】能力而闻名。尽管 Snobol4 在现代编程语言中并不常见，但它仍然在一些特定的领域和场景中有着独特的应用价值。本文将围绕 Snobol4 语言，通过一个 XML 节点属性遍历的实战案例【5】，展示 Snobol4 在处理 XML 数据时的能力。
Snobol4 简介
Snobol4 是 Snobol 语言家族的第四个版本，它继承了 Snobol3 的语法和功能，并在此基础上进行了扩展。Snobol4 的主要特点包括：
- 强大的字符串处理能力
- 简洁的语法
- 高效的运行速度
- 支持正则表达式【6】
XML 节点属性遍历实战
XML（可扩展标记语言）是一种用于存储和传输数据的标记语言。在许多应用场景中，我们需要对 XML 文档进行解析【7】和处理。本节将使用 Snobol4 语言实现一个 XML 节点属性的遍历功能。
实战环境
- 操作系统【8】：Windows/Linux/MacOS
- 编译器【9】：Snobol4 编译器（如：Snobol4 for Windows）
- XML 文档：一个包含多个节点的 XML 文档
实战步骤
1. 编写 Snobol4 源代码【10】：我们需要编写 Snobol4 源代码，用于解析 XML 文档并遍历节点属性。
```snobol
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of root node:'
attributes-of-root
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node1":'
attributes-of-node "node1"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node2":'
attributes-of-node "node2"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node3":'
attributes-of-node "node3"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node4":'
attributes-of-node "node4"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node5":'
attributes-of-node "node5"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node6":'
attributes-of-node "node6"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node7":'
attributes-of-node "node7"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node8":'
attributes-of-node "node8"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node9":'
attributes-of-node "node9"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node10":'
attributes-of-node "node10"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node11":'
attributes-of-node "node11"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node12":'
attributes-of-node "node12"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node13":'
attributes-of-node "node13"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node14":'
attributes-of-node "node14"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node15":'
attributes-of-node "node15"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node16":'
attributes-of-node "node16"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node17":'
attributes-of-node "node17"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node18":'
attributes-of-node "node18"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node19":'
attributes-of-node "node19"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node20":'
attributes-of-node "node20"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node21":'
attributes-of-node "node21"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node22":'
attributes-of-node "node22"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node23":'
attributes-of-node "node23"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node24":'
attributes-of-node "node24"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node25":'
attributes-of-node "node25"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node26":'
attributes-of-node "node26"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node27":'
attributes-of-node "node27"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node28":'
attributes-of-node "node28"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node29":'
attributes-of-node "node29"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node30":'
attributes-of-node "node30"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node31":'
attributes-of-node "node31"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node32":'
attributes-of-node "node32"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node33":'
attributes-of-node "node33"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node34":'
attributes-of-node "node34"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node35":'
attributes-of-node "node35"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node36":'
attributes-of-node "node36"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node37":'
attributes-of-node "node37"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node38":'
attributes-of-node "node38"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node39":'
attributes-of-node "node39"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node40":'
attributes-of-node "node40"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node41":'
attributes-of-node "node41"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node42":'
attributes-of-node "node42"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node43":'
attributes-of-node "node43"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node44":'
attributes-of-node "node44"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node45":'
attributes-of-node "node45"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node46":'
attributes-of-node "node46"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node47":'
attributes-of-node "node47"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node48":'
attributes-of-node "node48"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node49":'
attributes-of-node "node49"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node50":'
attributes-of-node "node50"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node51":'
attributes-of-node "node51"
^'End of attributes'
^'End of XML parsing'
:parse-xml
input xml
parse-xml
output
^'XML parsed successfully'
^'End of XML'
^'Attributes of node "node52":'
attributes-of-node
Comments NOTHING