Leser: 2
|< 1 2 3 >| | 23 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
foreach my $port_address_table (@port_address_table) {
foreach my $mac_address (@mac_address_result) {
if ($mac_address eq $port_address_table){
if ($mac_address =~/[a-fA-F1-9]$/){
open(DATEI,">>d:/mac/mac_tabel.txt");
print DATEI "$mac_address\n";
close DATEI;
push (@mac_tabel_result, $mac_address);
%mac_ip=(
$mac_address => $ipaddress,
);
1
2
3
4
5
6
7
8
9
foreach my $port_address_table (@port_address_table) {
foreach my $mac_address (@mac_address_result) {
if ($mac_address eq $port_address_table){
if ($mac_address =~/[a-fA-F1-9]$/){
open(DATEI,">>d:/mac/mac_tabel.txt");
print DATEI "$mac_address\n";
close DATEI;
push (@mac_tabel_result, $mac_address);
$mac_ip{$mac_address} = $ipaddress ;
$wert = $wert."$mac_ip{$mac_address_2},";
push @{$wert{$ipaddress}},$mac_ip{$mac_address_2};
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/usr/bin/perl use strict; use warnings; use GraphViz; my $g = GraphViz->new(); my $switches = { 'switch0' => ['switch1', 'switch2', 'switch3'], 'switch1' => ['switch4'], }; for my $k (keys %$switches) { $g->add_edge($k => $_) for @{$switches->{$k}}; } print $g->as_text;
1 2 3
for my $k (keys %$switches) { $g->add_edge($k => $_) for @{$switches->{$k}}; }
|< 1 2 3 >| | 23 Einträge, 3 Seiten |