csv 파일에서 명령을 실행하기 위해 perl 사용

Question

내가하려는 것은 내 스크립트에서 CSV 파일이나 텍스트 파일 (가장 쉬운 방법)을 읽고, 셀 A1에서 호스트 이름을 가져 와서 해당 장치에 로그인 한 다음, 인터페이스 (예 : fa0/1)가 될 A2를 읽고 인터페이스로 전환 한 다음 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으로 이것을 수행 할 수 있습니다.