1Regexp::Common::URI::teUlsneert(C3o)ntributed Perl DocumReengteaxtpi:o:nCommon::URI::telnet(3)
2
3
4
6 Regexp::Common::URI::telnet -- Returns a pattern for telnet URIs.
7
9 use Regexp::Common qw /URI/;
10
11 while (<>) {
12 /$RE{URI}{telnet}/ and print "Contains a telnet URI.\n";
13 }
14
16 $RE{URI}{telnet}
17
18 Returns a pattern that matches telnet URIs, as defined by RFC 1738.
19 Telnet URIs have the form:
20
21 "telnet:" "//" [ user [ ":" password ] "@" ] host [ ":" port ] [ "/" ]
22
23 Under "{-keep}", the following are returned:
24
25 $1 The complete URI.
26
27 $2 The scheme.
28
29 $3 The username:password combo, or just the username if there is no
30 password.
31
32 $4 The username, if given.
33
34 $5 The password, if given.
35
36 $6 The host:port combo, or just the host if there's no port.
37
38 $7 The host.
39
40 $8 The port, if given.
41
42 $9 The trailing slash, if any.
43
45 [RFC 1738]
46 Berners-Lee, Tim, Masinter, L., McCahill, M.: Uniform Resource
47 Locators (URL). December 1994.
48
50 $Log: telnet.pm,v $
51 Revision 2.100 2003/02/10 21:06:43 abigail
52 telnet URI
53
55 Regexp::Common::URI for other supported URIs.
56
58 Damian Conway (damian@conway.org)
59
61 This package is maintained by Abigail (regexp-common@abigail.nl).
62
64 Bound to be plenty.
65
67 Copyright (c) 2001 - 2003, Damian Conway. All Rights Reserved.
68 This module is free software. It may be used, redistributed
69 and/or modified under the terms of the Perl Artistic License
70 (see http://www.perl.com/perl/misc/Artistic.html)
71
72
73
74perl v5.8.8 2003-03-23 Regexp::Common::URI::telnet(3)