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"; }

$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: 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. Regexp::Common::URI for other supported URIs. Damian Conway (damian@conway.org) This package is maintained by Abigail (regexp-common@abigail.nl). 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)