一个多行输出：InternetGatewayDevice.LANDevice.1.Hosts.Host.2.Active 1

如果你想要在TCL中提取这个多行输出中的数字（即 `1`），你可以使用以下代码：

set output "InternetGatewayDevice.LANDevice.1.Hosts.Host.2.Active 1"

regexp {Active (\d+)} $output match number

puts $number

解释一下这段代码：

- `{Active (\d+)}` 是一个正则表达式，用于匹配 `Active` 后面的数字。`\d+` 表示匹配一个或多个数字。
- `$output` 是要匹配的多行输出。
- `match` 是一个变量，用于存储匹配结果。
- `number` 是一个变量，用于存储匹配结果中的数字部分。

这段代码最终输出的结果是 `1`，即匹配到的数字。

希望这个回答能够帮助到你！