1Regexp::Common::URI::waUisse(r3)Contributed Perl DocumenRteagteixopn::Common::URI::wais(3)
2
3
4
6 Regexp::Common::URI::wais -- Returns a pattern for WAIS URIs.
7
9 use Regexp::Common qw /URI/;
10
11 while (<>) {
12 /$RE{URI}{WAIS}/ and print "Contains a WAIS URI.\n";
13 }
14
16 $RE{URI}{WAIS}
17 Returns a pattern that matches WAIS URIs, as defined by RFC 1738. WAIS
18 URIs have the form:
19
20 "wais:" "//" host [ ":" port ] "/" database
21 [ ( "?" search ) | ( "/" wtype "/" wpath ) ]
22
23 Under "{-keep}", the following are returned:
24
25 $1 The complete URI.
26
27 $2 The scheme.
28
29 $3 The hostname.
30
31 $4 The port, if given.
32
33 $5 The database, followed by search or wtype/wpath, if given.
34
35 $6 The database.
36
37 $7 The part following the database if given, including the question
38 mark or slash.
39
40 $8 The search part, if given.
41
42 $9 The wtype, if given.
43
44 $10 The wpath, if given.
45
47 [RFC 1738]
48 Berners-Lee, Tim, Masinter, L., McCahill, M.: Uniform Resource
49 Locators (URL). December 1994.
50
52 Regexp::Common::URI for other supported URIs.
53
55 Damian Conway (damian@conway.org)
56
58 This package is maintained by Abigail (regexp-common@abigail.be).
59
61 Bound to be plenty.
62
64 This software is Copyright (c) 2001 - 2017, Damian Conway and Abigail.
65
66 This module is free software, and maybe used under any of the following
67 licenses:
68
69 1) The Perl Artistic License. See the file COPYRIGHT.AL.
70 2) The Perl Artistic License 2.0. See the file COPYRIGHT.AL2.
71 3) The BSD License. See the file COPYRIGHT.BSD.
72 4) The MIT License. See the file COPYRIGHT.MIT.
73
74
75
76perl v5.36.0 2022-07-22 Regexp::Common::URI::wais(3)