The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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 latest is now used for Acme::MetaSyntactic::services, which increased the theme size by a factor of 14.

CONTRIBUTOR

Philippe "BooK" Bruhat.

Introduced in version 0.33, published on August 1, 2005.

Updated and made automatically updatable with the graffiti.com list in version 0.68, published on April 3, 2006.

SEE ALSO

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