Philippe Bruhat (BooK) > Acme-MetaSyntactic-Themes-1.039 > Acme::MetaSyntactic::services

Download:
Acme-MetaSyntactic-Themes-1.039.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  1
View/Report Bugs
Module Version: 1.000   Source  

NAME ^

Acme::MetaSyntactic::services - The services theme

DESCRIPTION ^

The names of the services usually found in /etc/services.

The first list came from my Debian system and was extracted with:

    perl -lane '$_=$F[0];y/-/_/;!/#/&&!$s{$_}++&&print' /etc/services

Which was then golfed down to:

    perl -lane '$_=$F[0];y/-/_/;!/#/&&$s{$_}++||print' /etc/services
    perl -lane '$_=$F[0];y/-/_/;/#/||$s{$_}++||print' /etc/services
    perl -ne 's/\s.*//;y/-/_/;/#/||$s{$_}++||print' /etc/services
    perl -pe 's/[#\s].*//;y/-/_/;$s{$_}++&&goto LINE' /etc/services
    perl -ne 's/[#\s].*//;y/-/_/;$s{$_}++||print' /etc/services

For version 0.68, this was golfed a little more, by using the symbol table as the hash table it is:

    perl -ne 's/[#\s].*//;y/-/_/;$$_++||print' /etc/services

A bigger services lists is used by nmap: http://www.insecure.org/nmap/data/nmap-services. A huge list of services can also be found at http://www.graffiti.com/services.

The reference list is given by the IANA, and available at http://www.iana.org/assignments/port-numbers.

The latest is now used for Acme::MetaSyntactic::services, which increased the theme size by a factor of 14.

CONTRIBUTOR ^

Philippe "BooK" Bruhat.

CHANGES ^

SEE ALSO ^

Acme::MetaSyntactic, Acme::MetaSyntactic::List.

syntax highlighting: