---
name: "Regexp::Common::URI::wais"
section: "3pm"
platform: "linux"
package: "perl-regexp-common"
version: "2024080801-4"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Regexp::Common::URI::wais"
---

# Regexp::Common::URI::wais(3pm)

## NAME

Regexp::Common::URI::wais -- Returns a pattern for WAIS URIs.

## SYNOPSIS

```
    use Regexp::Common qw /URI/;
    while (<>) {
        /$RE{URI}{WAIS}/       and  print "Contains a WAIS URI.\n";
    }
```

## DESCRIPTION

### $RE{URI}{WAIS}

Returns a pattern that matches *WAIS* URIs, as defined by RFC 1738. WAIS URIs have the form:

```
    "wais:" "//" host [ ":" port ] "/" database
                      [ ( "?" search ) | ( "/" wtype "/" wpath ) ]
```

Under `"{-keep}"`, the following are returned:

- $1

  The complete URI.

- $2

  The *scheme*.

- $3

  The *hostname*.

- $4

  The *port*, if given.

- $5

  The *database*, followed by *search* or *wtype/wpath*, if given.

- $6

  The *database*.

- $7

  The part following the *database* if given, including the question mark  or slash.

- $8

  The *search* part, if given.

- $9

  The *wtype*, if given.

- $10

  The *wpath*, if given.

## REFERENCES

- **\[RFC 1738\]**

  Berners-Lee, Tim, Masinter, L., McCahill, M.: *Uniform Resource* *Locators (URL)*. December 1994.

## SEE ALSO

Regexp::Common::URI for other supported URIs.

## AUTHOR

Damian Conway (damian@conway.org)

## MAINTENANCE

This package is maintained by Abigail (*regexp-common@abigail.freedom.nl*).

## BUGS AND IRRITATIONS

Bound to be plenty.

## LICENSE and COPYRIGHT

This software is Copyright (c) 2001 - 2024, Damian Conway and Abigail.

This module is free software, and maybe used under any of the following licenses:

```
 1) The Perl Artistic License.     See the file COPYRIGHT.AL.
 2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2.
 3) The BSD License.               See the file COPYRIGHT.BSD.
 4) The MIT License.               See the file COPYRIGHT.MIT.
```