| Included libraries | Package variables | General documentation | Methods |
| Package variables | Top |
| |
| @EXPORT_OK = qw(ale_normalize_url) |
| Included modules | Top |
| Exporter |
| Inherit | Top |
| Exporter |
| Synopsis | Top |
| Description | Top |
| Methods | Top |
| ale_normalize_url | No description | Code |
| ale_normalize_url | description | prev | next | Top |
sub ale_normalize_url
{
local($_) = @_;
if (defined $_) {
s/\t/%09/g;
s/\r/%0D/g;
s/\n/%0A/g;
s/\/index\.html$//;
s/\/$//;
/[\x00-\x1f\x7f-\xff]/ ? undef : $_;
} else {
return undef;
}} |