发布时间：2019-07-31 19:00:10
perl脚本语法怎么把mac地址换成ap，下面这个代码都是什么意思
use strict;
use warnings;
my %name_mac_list;
open READ, "<hfl1_sdr_mac.txt";
while (<READ>) {
if(/\A(\s+)?(\S+)\s+(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s+\$/) {
$name_mac_list{"$3:$4:$5:$6:$7:$8"} = $2;
}
}
close READ;
open READ, "<20190706_21a_on.txt";
open WRITE, ">>20190706_21a_on-70.txt";
while (<READ>) {
chomp;
my @line_info = split /\s+/, $_;
foreach my $i (0..$#line_info) {
if($name_mac_list{$line_info[$i]}) {
$line_info[$i] = $name_mac_list{$line_info[$i]};
}
}
my $k = 2;
my $counter = 0;
while ($k <= 19) {
if($k != 4) {
if($line_info[$k]) {
if($line_info[$k] >= -70) {
$counter++;
}
}
}
$k += 2;
}
push @line_info, $counter;
my $string = join " ", @line_info;
print WRITE "$string\n";
}
close READ;
close WRITE;