macch.pl

在UniX下实现了有关于使用snmp网络管理协议来管理IP绑定的问题

use strict;
use warnings;


open(FILEHANDLF,"switch_dara.txt")||die"can not open filename:$!";
open(FILEHANDLES,"mac.txt")||die"can not open filename:$!";
open(FILEHANDLE,">>mac_ip.txt")|| die"can not open filename:$!";
my(@array1)=<FILEHANDLF>;
chomp@array1;
my(@array2)=<FILEHANDLES>;
chomp@array2;




for (my $i=0;$i<=$#array2;$i++){
my $elm=$array2[$i];
my @list=grep /$elm/,@array1;
chomp@list;
print FILEHANDLE "@list\n"; 
}
close(FILEHANDLE);
close(FILEHANDLES);
close(FILEHANDLF);