使用perl从csv文件执行命令

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

我登录的设备是cisco路由器/交换机。让我绊倒的是我是如何将cisco IOS命令放入脚本的，还是我只是构建了这些命令，并让脚本实质上“粘贴”IOS中的命令

任何想法都很好

我不知道您的“登录到该设备”命令在这里是什么，但是

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
}

---

opencsv'可能是一个bash脚本，这是您需要的而不是perl