5 use Data::Dump qw(dump);
7 # ./vlan-ports.pl ./log/*sw-{dpc,e300}*vlan* | less
13 foreach my $log ( @logs ) {
14 open(my $log_fh, '<', $log);
15 my $sw = $log; $sw =~ s/^.*?_//; $sw =~ s/_.*$//;
18 if ( m/\s*(\d+)\s+(\S+)\s+([gc]\S+)\s+(\w+)\s+(\w+)/ ) {
19 my ($vlan,$name,$ports,$type,$authorization) = ( $1,$2,$3,$4,$5 );
21 warn "$sw $vlan $name $ports $type $authorization\n";
22 $stat->{$sw}->{_vlan_count}->{$vlan}++;
24 while ( $ports =~ s/(ch\([^\)]+\))// ) {
25 warn "# removed [$1] from ports\n";
28 while ( $ports =~ s/(\d+)-(\d+)// ) {
29 foreach my $port ( $1 .. $2 ) {
30 push @{ $stat->{$sw}->{port_vlan}->{$port} }, $vlan;
31 push @{ $stat->{$sw}->{vlan_port}->{$vlan} }, $port;
34 while ( $ports =~ s/(\d+)// ) {
36 push @{ $stat->{$sw}->{port_vlan}->{$port} }, $vlan;
37 push @{ $stat->{$sw}->{vlan_port}->{$vlan} }, $port;
39 #warn "# ports left:[$ports] stat = ",dump($stat);
49 foreach my $sw ( sort keys %$stat ) {
50 my @ports = sort { $a <=> $b } keys %{ $stat->{$sw}->{port_vlan} };
51 #warn "# ports = ",dump( \@ports );
52 printf( "%-11s %-5s %s\n", ('-' x 11), ('-' x 5), join(' ', map { sprintf("%-2s", $_) } ( 1 .. $ports[-1] )) );
53 foreach my $vlan ( sort { $a <=> $b } keys %{ $stat->{$sw}->{vlan_port} } ) {
54 my @p = ( '.' ) x ( $ports[-1] + 1 );
55 foreach my $port ( @{ $stat->{$sw}->{vlan_port}->{$vlan} } ) {
58 shift @p; # skip port 0
59 #warn "# $sw $vlan p = ",dump( \@p );
60 printf( "%-11s %-5d %s\n", $sw, $vlan, join(' ', map { sprintf("%-2s", $_) } @p) );