macch.pl

来自「在UniX下实现了有关于使用snmp网络管理协议来管理IP绑定的问题」· PL 代码 · 共 29 行

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);