{
    "content": [
        {
            "type": "text",
            "text": "# Net::servent (perldoc)\n\n## NAME\n\nNet::servent - by-name interface to Perl's built-in getserv*() functions\n\n## SYNOPSIS\n\nuse Net::servent;\n$s = getservbyname(shift || 'ftp') || die \"no service\";\nprintf \"port for %s is %s, aliases are %s\\n\",\n$s->name, $s->port, \"@{$s->aliases}\";\nuse Net::servent qw(:FIELDS);\ngetservbyname(shift || 'ftp') || die \"no service\";\nprint \"port for $sname is $sport, aliases are @saliases\\n\";\n\n## DESCRIPTION\n\nThis module's default exports override the core getservent(), getservbyname(), and\n\n## Sections\n\n- **NAME**\n- **SYNOPSIS**\n- **DESCRIPTION** (2 subsections)\n- **EXAMPLES**\n- **NOTE**\n- **AUTHOR**\n\nUse structuredContent.sections for detailed options, examples, and full documentation.\n"
        }
    ],
    "structuredContent": {
        "command": "Net::servent",
        "section": "",
        "mode": "perldoc",
        "summary": "Net::servent - by-name interface to Perl's built-in getserv*() functions",
        "synopsis": "use Net::servent;\n$s = getservbyname(shift || 'ftp') || die \"no service\";\nprintf \"port for %s is %s, aliases are %s\\n\",\n$s->name, $s->port, \"@{$s->aliases}\";\nuse Net::servent qw(:FIELDS);\ngetservbyname(shift || 'ftp') || die \"no service\";\nprint \"port for $sname is $sport, aliases are @saliases\\n\";",
        "tldr_summary": null,
        "tldr_examples": [],
        "tldr_source": null,
        "flags": [],
        "examples": [
            "use Net::servent qw(:FIELDS);",
            "while (@ARGV) {",
            "my ($service, $proto) = ((split m!/!, shift), 'tcp');",
            "my $valet = getserv($service, $proto);",
            "unless ($valet) {",
            "warn \"$0: No service: $service/$proto\\n\"",
            "next;",
            "printf \"service $service/$proto is port %d\\n\", $valet->port;",
            "print \"alias are @saliases\\n\" if @saliases;"
        ],
        "see_also": [],
        "section_outline": [
            {
                "name": "NAME",
                "lines": 2,
                "subsections": []
            },
            {
                "name": "SYNOPSIS",
                "lines": 9,
                "subsections": []
            },
            {
                "name": "DESCRIPTION",
                "lines": 1,
                "subsections": [
                    {
                        "name": "getnetbyport",
                        "lines": 11
                    },
                    {
                        "name": "getservbyport",
                        "lines": 4
                    }
                ]
            },
            {
                "name": "EXAMPLES",
                "lines": 13,
                "subsections": []
            },
            {
                "name": "NOTE",
                "lines": 3,
                "subsections": []
            },
            {
                "name": "AUTHOR",
                "lines": 2,
                "subsections": []
            }
        ],
        "sections": {
            "NAME": {
                "content": "Net::servent - by-name interface to Perl's built-in getserv*() functions\n",
                "subsections": []
            },
            "SYNOPSIS": {
                "content": "use Net::servent;\n$s = getservbyname(shift || 'ftp') || die \"no service\";\nprintf \"port for %s is %s, aliases are %s\\n\",\n$s->name, $s->port, \"@{$s->aliases}\";\n\nuse Net::servent qw(:FIELDS);\ngetservbyname(shift || 'ftp') || die \"no service\";\nprint \"port for $sname is $sport, aliases are @saliases\\n\";\n",
                "subsections": []
            },
            "DESCRIPTION": {
                "content": "This module's default exports override the core getservent(), getservbyname(), and",
                "subsections": [
                    {
                        "name": "getnetbyport",
                        "content": "take default second arguments of \"tcp\". This object has methods that return the similarly named\nstructure field name from the C's servent structure from netdb.h; namely name, aliases, port,\nand proto. The aliases method returns an array reference, the rest scalars.\n\nYou may also import all the structure fields directly into your namespace as regular variables\nusing the :FIELDS import tag. (Note that this still overrides your core functions.) Access these\nfields as variables named with a preceding \"s\". Thus, \"$servobj->name()\" corresponds to\n$sname if you import the fields. Array references are available as regular array variables, so\nfor example \"@{ $servobj->aliases()}\" would be simply @saliases.\n\nThe getserv() function is a simple front-end that forwards a numeric argument to"
                    },
                    {
                        "name": "getservbyport",
                        "content": "To access this functionality without the core overrides, pass the \"use\" an empty import list,\nand then access function functions with their full qualified names. On the other hand, the\nbuilt-ins are still available via the \"CORE::\" pseudo-package.\n"
                    }
                ]
            },
            "EXAMPLES": {
                "content": "use Net::servent qw(:FIELDS);\n\nwhile (@ARGV) {\nmy ($service, $proto) = ((split m!/!, shift), 'tcp');\nmy $valet = getserv($service, $proto);\nunless ($valet) {\nwarn \"$0: No service: $service/$proto\\n\"\nnext;\n}\nprintf \"service $service/$proto is port %d\\n\", $valet->port;\nprint \"alias are @saliases\\n\" if @saliases;\n}\n",
                "subsections": []
            },
            "NOTE": {
                "content": "While this class is currently implemented using the Class::Struct module to build a struct-like\nclass, you shouldn't rely upon this.\n",
                "subsections": []
            },
            "AUTHOR": {
                "content": "Tom Christiansen\n",
                "subsections": []
            }
        }
    }
}