perl - 使用 perl 从 csv 文件执行命令

Question

我想做的是让我的脚本读取 csv 文件或文本文件（这是最简单的），从单元格 A1 中获取主机名，登录到该设备，然后读取 A2，这将是一个接口（例如:fa0/1)，切换到界面，然后读取单元格A3，并将界面描述更改为单元格A3所说的内容。注销，然后对单元格 B1 等重复过程...

我登录的设备是思科路由器/交换机。让我感到困惑的是我如何将 cisco IOS 命令放入我的脚本中，或者我只是构建命令并让脚本基本上“粘贴”到 IOS 中的命令。

任何想法都会很棒。

Answer 1

我不知道您的“登录到该设备”命令是split什么，但这是您在 perl 中想要的。

open CSV, '<'.'filename.txt' or die $!;
while (<CSV>) {
    my ($host, $interface, $new_description) = split ',', $_;
    # shell to host, do whatever with $interface to $new_description
}

如果您提供更多详细信息会有所帮助，例如您的推荐看起来像什么——它们可能跨越多行吗？此外，您也可以很容易地做到这一点awk，如果不是更容易的话（也可以在外壳上切……）。