|
|
Regexp::Common::URI::wais -- Returns a pattern for WAIS URIs.
use Regexp::Common qw /URI/;
while (<>) {
/$RE{URI}{WAIS}/ and print "Contains a WAIS URI.\n";
}
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:
The complete URI.
The scheme.
The hostname.
The port, if given.
The database, followed by search or wtype/wpath, if given.
The database.
The part following the database if given, including the question mark or slash.
The search part, if given.
The wtype, if given.
The wpath, if given.
Berners-Lee, Tim, Masinter, L., McCahill, M.: Uniform Resource Locators (URL). December 1994.
$Log: wais.pm,v $ Revision 2.100 2003/03/12 22:23:14 abigail Forced 2.100 revision
Revision 2.1 2003/03/12 22:22:21 abigail WAIS URIs.
the Regexp::Common::URI manpage for other supported URIs.
Damian Conway (damian@conway.org)
This package is maintained by Abigail (
Bound to be plenty.
Copyright (c) 2001 - 2003, Damian Conway. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
(see http://www.perl.com/perl/misc/Artistic.html)