使用 perl 从 csv 文件执行命令

【问题标题】：Using perl to execute commands from csv file使用 perl 从 csv 文件执行命令
【发布时间】：2013-10-31 21:48:57
【问题描述】：

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

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

任何想法都会很棒。

【问题讨论】：

可能你需要一个 bash 脚本而不是 perl

标签： perl csv cisco

【解决方案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 轻松做到这一点，如果不是更容易的话（也可以使用 cut in the shell...）。

【讨论】：