![]() |
|< 1 2 >| | ![]() |
11 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11
my @known_mac = ("foo","bar"); my @last_scan_mac = ("foo","karl","heinz","bar"); # Hier sind also nur karl und heinz neu for my $a (@last_scan_mac) { for my $b (@known_mac) { if ($a =~ $b) { print "$a ist bekannt"; } } }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $count = 0;
my @known_mac = ("foo","bar");
my @last_scan_mac = ("foo","karl","heinz","bar");
# Hier sind also nur karl und heinz neu
for my $a (@last_scan_mac) {
for my $b (@known_mac) {
if ($a =~ $b) {
print "$a ist bekannt\n";
print "ESSID:$ESSID[$counter]\n";
print "ENC:$ENC[$counter]\n";
}
$count++;
}
}
1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
my %hash = (
foo => undef,
);
print exists($hash{foo})."\n";
print defined($hash{foo})."\n";
print exists($hash{bar})."\n";
print defined($hash{bar})."\n";
print exists( $hash{bar} ) . "\n";
![]() |
|< 1 2 >| | ![]() |
11 Einträge, 2 Seiten |