1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
package Apache::URI;
use strict;
use Apache ();
use DynaLoader ();
@Apache::URI::ISA = qw(DynaLoader);
$Apache::URI::VERSION = '1.00';
if ($ENV{MOD_PERL}) {
bootstrap Apache::URI $Apache::URI::VERSION;
}
1;
__END__
=head1 NAME
Apache::URI - URI component parsing and unparsing
=head1 SYNOPSIS
use Apache::URI ();
my $uri = $r->parsed_uri;
my $uri = Apache::URI->parse($r, "http://perl.apache.org/");
=head1 DESCRIPTION
This module provides an interface to the Apache I<util_uri> module and
the I<uri_components> structure.
=head1 METHODS
=over 4
=item Apache::parsed_uri
Apache will have already parsed the requested uri components, which can
be obtained via the I<parsed_uri> method defined in the I<Apache> class.
This method returns an object blessed into the I<Apache::URI> class.
my $uri = $r->parsed_uri;
=item parse
This method will parse a URI string into uri components which are stashed
in the I<Apache::URI> object it returns.
my $uri = Apache::URI->parse($r, "http://www.foo.com/path/file.html?query+string");
This method is considerably faster than using I<URI::URL>:
timethese(5000, {
C => sub { Apache::URI->parse($r, $test_uri) },
Perl => sub { URI::URL->new($test_uri) },
});
Benchmark: timing 5000 iterations of C, Perl...
C: 1 secs ( 0.62 usr 0.04 sys = 0.66 cpu)
Perl: 6 secs ( 6.21 usr 0.08 sys = 6.29 cpu)
=item unparse
This method will join the uri components back into a string version.
my $string = $uri->unparse;
=item scheme
my $scheme = $uri->scheme;
=item hostinfo
my $hostinfo = $uri->hostinfo;
=item user
my $user = $uri->user;
=item password
my $password = $uri->password;
=item hostname
my $hostname = $uri->hostname;
=item port
my $port = $uri->port;
=item path
my $path = $uri->path;
=item rpath
Returns the I<path> minus I<path_info>.
my $path = $uri->rpath;
=item query
my $query = $uri->query;
=item fragment
my $fragment = $uri->fragment;
=back
=head1 AUTHOR
Doug MacEachern
=head1 SEE ALSO
perl(1).
=cut
|
