Help language development. Donate to The Perl Foundation

Services::PortMapping zef:jjmerelo last updated on 2022-12-19
# Services::PortMapping  [![Test-install distro](](

Map ports to services (and back) for internet services. Using [this CSV file]( 
included in the distribution, creates and exports 4 hashes that map ports to
 services and back, for UDP and TCP.
 * `%TCPServices` maps ports to TCP services
 * `%TCPPorts` maps service names to ports;
And idem with UDP instead of TCP.
# Example

We have `[protocol]Services`, a hash that maps port numbers to the services
 it hosts, and `[protocol]Ports`, which maps the conventional service name to
  the port it uses. `protocol == any <TCP UDP SCTP DCCP>`

> No, I had never heard about these last two before

say %TCPServices<80>; # should return www-http
say %UDPPorts<domain>;   # should return 53

You can also use `.keys` to print the existing ports or services.

## License

(c) JJ Merelo, `[email protected]`, 2020-2022

Released under the GPL-3.0 license.