Skip to content

Commit

Permalink
Shorten long lines by using \t instead of tab in netstat print.
Browse files Browse the repository at this point in the history
  • Loading branch information
bluhm committed Aug 29, 2024
1 parent 0acb604 commit 9d84ccf
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions Netstat.pm
Original file line number Diff line number Diff line change
Expand Up @@ -134,21 +134,21 @@ sub myprint {
my $l2 = $l1->{$k};
foreach my $k2 (sort keys %$l2) {
if (ref($l2->{$k2}) eq "HASH") {
print $fh (" $k2:\n");
print $fh ("\t$k2:\n");
my $l3 = $l2->{$k2};
foreach my $k3 (sort keys %$l3) {
if (ref($l3->{$k3}) eq "HASH") {
my $l4 = $l3->{$k3};
print $fh (" $k3:\n");
print $fh ("\t\t$k3:\n");
foreach my $k4 (sort keys %$l4) {
print $fh (" $k4: $l4->{$k4}\n");
print $fh ("\t\t\t$k4: $l4->{$k4}\n");
}
} else {
print $fh (" $k3: $l3->{$k3}\n");
print $fh ("\t\t$k3: $l3->{$k3}\n");
}
}
} else {
print $fh (" $k2: $l2->{$k2}\n");
print $fh ("\t$k2: $l2->{$k2}\n");
}
}
} else {
Expand Down

0 comments on commit 9d84ccf

Please sign in to comment.