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
18 Returns a pattern that matches WAIS URIs, as defined by RFC 1738. WAIS
19 URIs have the form:
20
21 "wais:" "//" host [ ":" port ] "/" database
22 [ ( "?" search ) ⎪ ( "/" wtype "/" wpath ) ]
23
24 Under "{-keep}", the following are returned:
25
26 $1 The complete URI.
27
28 $2 The scheme.
29
30 $3 The hostname.
31
32 $4 The port, if given.
33
34 $5 The database, followed by search or wtype/wpath, if given.
35
36 $6 The database.
37
38 $7 The part following the database if given, including the question
39 mark or slash.
40
41 $8 The search part, if given.
42
43 $9 The wtype, if given.
44
45 $10 The wpath, if given.
46
48 [RFC 1738]
49 Berners-Lee, Tim, Masinter, L., McCahill, M.: Uniform Resource
50 Locators (URL). December 1994.
51
53 $Log: wais.pm,v $
54 Revision 2.100 2003/03/12 22:23:14 abigail
55 Forced 2.100 revision
56
57 Revision 2.1 2003/03/12 22:22:21 abigail
58 WAIS URIs.
59
61 Regexp::Common::URI for other supported URIs.
62
64 Damian Conway (damian@conway.org)
65
67 This package is maintained by Abigail (regexp-common@abigail.nl).
68
70 Bound to be plenty.
71
73 Copyright (c) 2001 - 2003, Damian Conway. All Rights Reserved.
74 This module is free software. It may be used, redistributed
75 and/or modified under the terms of the Perl Artistic License
76 (see http://www.perl.com/perl/misc/Artistic.html)
77
78
79
80perl v5.8.8 2003-03-23 Regexp::Common::URI::wais(3)