OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
URI
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:33 AM
rwxr-xr-x
📄
Escape.pm
6.9 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Heuristic.pm
6.37 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
IRI.pm
820 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
QueryParam.pm
4.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
Split.pm
2.32 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
URL.pm
5.36 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
WithBase.pm
3.77 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_foreign.pm
133 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_generic.pm
5.71 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_idna.pm
2.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_ldap.pm
3.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_login.pm
257 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_punycode.pm
5.52 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_query.pm
2.5 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_segment.pm
442 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
_server.pm
3.66 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
_userpass.pm
1.04 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
data.pm
3.34 KB
01/09/2018 06:42:55 AM
rw-r--r--
📁
file
-
02/11/2020 08:10:06 AM
rwxr-xr-x
📄
file.pm
9.53 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ftp.pm
1.06 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
gopher.pm
2.4 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
http.pm
451 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
https.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldap.pm
2.88 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldapi.pm
467 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ldaps.pm
170 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
mailto.pm
1.27 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
mms.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
news.pm
1.45 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
nntp.pm
153 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
pop.pm
1.2 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
rlogin.pm
155 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rsync.pm
233 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtsp.pm
151 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
rtspu.pm
152 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sftp.pm
124 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
sip.pm
1.69 KB
01/09/2018 06:42:55 AM
rw-r--r--
📄
sips.pm
169 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
snews.pm
198 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
ssh.pm
201 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
telnet.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📄
tn3270.pm
154 bytes
01/09/2018 06:42:55 AM
rw-r--r--
📁
urn
-
02/11/2020 08:10:06 AM
rwxr-xr-x
📄
urn.pm
2.15 KB
01/09/2018 06:42:55 AM
rw-r--r--
Editing: Split.pm
Close
package URI::Split; use strict; use warnings; our $VERSION = '1.73'; $VERSION = eval $VERSION; use Exporter 5.57 'import'; our @EXPORT_OK = qw(uri_split uri_join); use URI::Escape (); sub uri_split { return $_[0] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,; } sub uri_join { my($scheme, $auth, $path, $query, $frag) = @_; my $uri = defined($scheme) ? "$scheme:" : ""; $path = "" unless defined $path; if (defined $auth) { $auth =~ s,([/?\#]), URI::Escape::escape_char($1),eg; $uri .= "//$auth"; $path = "/$path" if length($path) && $path !~ m,^/,; } elsif ($path =~ m,^//,) { $uri .= "//"; # XXX force empty auth } unless (length $uri) { $path =~ s,(:), URI::Escape::escape_char($1),e while $path =~ m,^[^:/?\#]+:,; } $path =~ s,([?\#]), URI::Escape::escape_char($1),eg; $uri .= $path; if (defined $query) { $query =~ s,(\#), URI::Escape::escape_char($1),eg; $uri .= "?$query"; } $uri .= "#$frag" if defined $frag; $uri; } 1; __END__ =head1 NAME URI::Split - Parse and compose URI strings =head1 SYNOPSIS use URI::Split qw(uri_split uri_join); ($scheme, $auth, $path, $query, $frag) = uri_split($uri); $uri = uri_join($scheme, $auth, $path, $query, $frag); =head1 DESCRIPTION Provides functions to parse and compose URI strings. The following functions are provided: =over =item ($scheme, $auth, $path, $query, $frag) = uri_split($uri) Breaks up a URI string into its component parts. An C<undef> value is returned for those parts that are not present. The $path part is always present (but can be the empty string) and is thus never returned as C<undef>. No sensible value is returned if this function is called in a scalar context. =item $uri = uri_join($scheme, $auth, $path, $query, $frag) Puts together a URI string from its parts. Missing parts are signaled by passing C<undef> for the corresponding argument. Minimal escaping is applied to parts that contain reserved chars that would confuse a parser. For instance, any occurrence of '?' or '#' in $path is always escaped, as it would otherwise be parsed back as a query or fragment. =back =head1 SEE ALSO L<URI>, L<URI::Escape> =head1 COPYRIGHT Copyright 2003, Gisle Aas This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut