SM0 She11
Path:
/
/
usr
/
share
/
perl5
/
URI
Full Path (server): /usr/share/perl5/URI
Create Fil3
Upl04d Fil3
📄 Escape.pm
[E]
[D]
[R]
📄 Heuristic.pm
[E]
[D]
[R]
📄 IRI.pm
[E]
[D]
[R]
📄 QueryParam.pm
[E]
[D]
[R]
📄 Split.pm
[E]
[D]
[R]
📄 URL.pm
[E]
[D]
[R]
📄 WithBase.pm
[E]
[D]
[R]
📄 _foreign.pm
[E]
[D]
[R]
📄 _generic.pm
[E]
[D]
[R]
📄 _idna.pm
[E]
[D]
[R]
📄 _ldap.pm
[E]
[D]
[R]
📄 _login.pm
[E]
[D]
[R]
📄 _punycode.pm
[E]
[D]
[R]
📄 _query.pm
[E]
[D]
[R]
📄 _segment.pm
[E]
[D]
[R]
📄 _server.pm
[E]
[D]
[R]
📄 _userpass.pm
[E]
[D]
[R]
📄 data.pm
[E]
[D]
[R]
📁 file
Open
[D]
[R]
📄 file.pm
[E]
[D]
[R]
📄 ftp.pm
[E]
[D]
[R]
📄 gopher.pm
[E]
[D]
[R]
📄 http.pm
[E]
[D]
[R]
📄 https.pm
[E]
[D]
[R]
📄 ldap.pm
[E]
[D]
[R]
📄 ldapi.pm
[E]
[D]
[R]
📄 ldaps.pm
[E]
[D]
[R]
📄 mailto.pm
[E]
[D]
[R]
📄 mms.pm
[E]
[D]
[R]
📄 news.pm
[E]
[D]
[R]
📄 nntp.pm
[E]
[D]
[R]
📄 pop.pm
[E]
[D]
[R]
📄 rlogin.pm
[E]
[D]
[R]
📄 rsync.pm
[E]
[D]
[R]
📄 rtsp.pm
[E]
[D]
[R]
📄 rtspu.pm
[E]
[D]
[R]
📄 sip.pm
[E]
[D]
[R]
📄 sips.pm
[E]
[D]
[R]
📄 snews.pm
[E]
[D]
[R]
📄 ssh.pm
[E]
[D]
[R]
📄 telnet.pm
[E]
[D]
[R]
📄 tn3270.pm
[E]
[D]
[R]
📁 urn
Open
[D]
[R]
📄 urn.pm
[E]
[D]
[R]
Editing: _segment.pm
package URI::_segment; # Represents a generic path_segment so that it can be treated as # a string too. use strict; use URI::Escape qw(uri_unescape); use overload '""' => sub { $_[0]->[0] }, fallback => 1; sub new { my $class = shift; my @segment = split(';', shift, -1); $segment[0] = uri_unescape($segment[0]); bless \@segment, $class; } 1;
Save