#====================================================
# Определить части URL
#====================================================
sub url_parse {
	my $url = shift;
	$url=~s/^\s*|\s*$//g;
	return unless $url and $url=~/^(\w+:)?(\/\/(\w+(:[^@]+)?\@)?([\w\.]+)(:\d*)?)?([^\?\#]*)(#(.+))?$/;
	my $i;
	my $hash = {};
	foreach (qw(prot addr login password host port path query ankor)) {
		$hash->{$_} = ${++$i};
	}
	$hash->{prot}=~s/:$//;
	$hash->{port}=~s/^://;
	$hash->{login}=~s/(:|@)(.*)$//;
	$hash->{password}=~s/^://;
	return $hash;
}