The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

NAME

Net::Connection::Sort::port_f - Sorts the connections via the foreign port numerically.

VERSION

Version 0.0.0

SYNOPSIS

This currently implements numeric sorting only. For non-numeric sorting using port_fa.

my @objects=(
Net::Connection->new({
'foreign_host' => '3.3.3.3',
'local_host' => '4.4.4.4',
'foreign_port' => '23',
'local_port' => '11132',
'sendq' => '1',
'recvq' => '0',
'state' => 'ESTABLISHED',
'proto' => 'tcp4',
'ports' => 0,
}),
Net::Connection->new({
'foreign_host' => '1.1.1.1',
'local_host' => '2.2.2.2',
'foreign_port' => '22',
'local_port' => '11132',
'sendq' => '1',
'recvq' => '0',
'state' => 'ESTABLISHED',
'proto' => 'tcp4',
'ports' => 0,
}),
Net::Connection->new({
'foreign_host' => '5.5.5.5',
'local_host' => '6.6.6.6',
'foreign_port' => '80',
'local_port' => '11132',
'sendq' => '1',
'recvq' => '0',
'state' => 'ESTABLISHED',
'proto' => 'tcp4',
'ports' => 0,
}),
Net::Connection->new({
'foreign_host' => '3.3.3.3',
'local_host' => '4.4.4.4',
'foreign_port' => '21',
'local_port' => '11132',
'sendq' => '1',
'recvq' => '0',
'state' => 'ESTABLISHED',
'proto' => 'tcp4',
'ports' => 0,
}),
);
my $sorter=$sorter=Net::Connection::Sort::port_f->new;
@objects=$sorter->sorter( \@objects );
print Dumper( \@objects );

METHODS

new

This initiates the module.

No arguments are taken and this will always succeed.

my $sorter=$sorter=Net::Connection::Sort::port_f->new;

sort

This sorts the array of Net::Connection objects.

One object is taken and that is a array of objects.

@objects=$sorter->sorter( \@objects );
print Dumper( \@objects );

AUTHOR

Zane C. Bowers-Hadley, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-net-connection-sort at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Connection-Sort. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Net::Connection::Sort

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This software is Copyright (c) 2019 by Zane C. Bowers-Hadley.

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)