使用perl从csv文件执行命令

Question

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

我登录的设备是cisco路由器/交换机。我绊倒的是我如何将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执行此操作，即使不是更容易（也可以在shell中剪切...）。