{
    "mode": "perldoc",
    "parameter": "Regexp::Common::URI::wais",
    "section": "",
    "url": "https://www.chedong.com/phpMan.php/perldoc/Regexp%3A%3ACommon%3A%3AURI%3A%3Awais/json",
    "generated": "2026-06-13T12:13:10Z",
    "synopsis": "use Regexp::Common qw /URI/;\nwhile (<>) {\n/$RE{URI}{WAIS}/       and  print \"Contains a WAIS URI.\\n\";\n}",
    "sections": {
        "NAME": {
            "content": "Regexp::Common::URI::wais -- Returns a pattern for WAIS URIs.\n",
            "subsections": []
        },
        "SYNOPSIS": {
            "content": "use Regexp::Common qw /URI/;\n\nwhile (<>) {\n/$RE{URI}{WAIS}/       and  print \"Contains a WAIS URI.\\n\";\n}\n",
            "subsections": []
        },
        "DESCRIPTION": {
            "content": "$RE{URI}{WAIS}\nReturns a pattern that matches *WAIS* URIs, as defined by RFC 1738. WAIS URIs have the form:\n\n\"wais:\" \"//\" host [ \":\" port ] \"/\" database\n[ ( \"?\" search ) | ( \"/\" wtype \"/\" wpath ) ]\n\nUnder \"{-keep}\", the following are returned:\n\n$1  The complete URI.\n\n$2  The *scheme*.\n\n$3  The *hostname*.\n\n$4  The *port*, if given.\n\n$5  The *database*, followed by *search* or *wtype/wpath*, if given.\n\n$6  The *database*.\n\n$7  The part following the *database* if given, including the question mark or slash.\n\n$8  The *search* part, if given.\n\n$9  The *wtype*, if given.\n\n$10 The *wpath*, if given.\n",
            "subsections": []
        },
        "REFERENCES": {
            "content": "[RFC 1738]\nBerners-Lee, Tim, Masinter, L., McCahill, M.: *Uniform Resource Locators (URL)*. December\n1994.\n",
            "subsections": []
        },
        "SEE ALSO": {
            "content": "Regexp::Common::URI for other supported URIs.\n",
            "subsections": []
        },
        "AUTHOR": {
            "content": "Damian Conway (damian@conway.org)\n",
            "subsections": []
        },
        "MAINTENANCE": {
            "content": "This package is maintained by Abigail (*regexp-common@abigail.be*).\n",
            "subsections": []
        },
        "BUGS AND IRRITATIONS": {
            "content": "Bound to be plenty.\n\nLICENSE and COPYRIGHT\nThis software is Copyright (c) 2001 - 2017, Damian Conway and Abigail.\n\nThis module is free software, and maybe used under any of the following licenses:\n\n1) The Perl Artistic License.     See the file COPYRIGHT.AL.\n2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2.\n3) The BSD License.               See the file COPYRIGHT.BSD.\n4) The MIT License.               See the file COPYRIGHT.MIT.\n",
            "subsections": []
        }
    },
    "summary": "Regexp::Common::URI::wais -- Returns a pattern for WAIS URIs.",
    "flags": [],
    "examples": [],
    "see_also": []
}