now gives me the following output:print HDLCGET "\#\!\/usr\/local\/bin\/expect\n"; print HDLCGET "set timeout -1\n"; open(MYINPUTFILE, "hdlc2") or die "UNABLE TO OPEN FILE hdlc2: $!"; open(MYINPUTFILE1, "hdlc3") or die "UNABLE TO OPEN FILE hdlc3: $!"; while(<MYINPUTFILE>) { my($line) = $_; chomp($line); my($line1) = <MYINPUTFILE1>; chomp($line1); print HDLCGET "spawn \ ssh $line\n"; print HDLCGET "expect \"assword: \"\n"; print HDLCGET "send \"$tacacspw\\r\"\n"; print HDLCGET "expect \"#\"\n"; print HDLCGET "send \"terminal length 0\\r\"\n"; print HDLCGET "expect \"#\"\n"; print HDLCGET "send \"show xconnect all | inc $line1\\r\"\nexpect +\"#\"\n"; print HDLCGET "send \"exit\\r\"\n"; print HDLCGET "interact\n"; } close(MYINPUTFILE); close(MYINPUTFILE1);
here is the content of the two input files. I kept it to three lines for now.#!/usr/local/bin/expect set timeout -1 spawn ssh 10.247.17.141 expect "assword: " send "Kalewi13\r" expect "#" send "terminal length 0\r" expect "#" send "show xconnect all | inc 99999999\r" expect "#" send "exit\r" interact spawn ssh 10.247.17.1 expect "assword: " send "Kalewi13\r" expect "#" send "terminal length 0\r" expect "#" send "show xconnect all | inc \r" <-- MISSING LINE 2 INPUT FROM hdlc +3 expect "#" send "exit\r" interact
hdlc310.247.17.141 10.247.17.1 10.247.17.69
Thanks again for the help.99999999 616698950 615498584
In reply to Re^2: Using multiple input files #2
by ddrew78
in thread Using multiple input files #2
by ddrew78
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |