PHP extracts the root domain name based on the URL-PHP source code

PHP extracts the php code of the root domain name based on the URL

Domain; echo "\ n"; echo getBaseDomain (' http://51.ca/index.php ')-> Domain; echo "\ n"; echo getBaseDomain (' http://blog.ab.cc.win.aisa.hk/index.php ')-> Domain; echo "\ n"; function getBaseDomain ($ url = '') {if (! $ Url) {return $ url;} # List fixed elements in the domain name $ state_domain = array ('Al', 'dz', 'AF', 'ar ',' AE ', 'aw', 'Om ', 'az', 'EG', 'ET', 'ie ', 'ee', 'AD', 'ao', 'Ai ', 'AG', 'at', 'Au ', 'Mo', 'BB', 'PG ', 'BS', 'PK', 'py', 'PS ', 'Bh ', 'Pa', 'Br', 'By', 'bm ', 'bg', 'MP', 'BJ ', 'be', 'is ', 'PR', 'ba', 'pl', 'Bo', 'BZ', 'bw ', 'BT', 'BF', 'bi', 'bv ', 'KP ', 'GQ', 'dk', 'De', 'Tl ', 'TP', 'tg ', 'DM', 'Do', 'Ru ', 'EC', 'er', 'Fr ', 'fo', 'pf', 'GF ', 'tf', 'VA', 'Ph ', 'fj ', 'Fi ', 'CV', 'fk ', 'G', 'cg ', 'CD', 'Co', 'cr ', 'GG', 'gd ', 'Gl', 'GE ', 'CU', 'GP ', 'Gu ', 'gy', 'kz', 'ht ', 'Kr', 'nl ', 'an', 'hm ', 'hn', 'Ki ', 'DJ ', 'KG ', 'Gn', 'gw ', 'CA', 'GH', 'GA', 'kh', 'cz', 'zw', 'CM ', 'qa ', 'ky', 'km ', 'ci', 'kw', 'CC', 'HR ', 'ke', 'CK ', 'LV ', 'Ls', 'LA', 'lb', 'Lt ', 'LR', 'ly ', 'Lil', 're', 'Lu', 'rw ', 'ro', 'MG ', 'Im', 'mmv ', 'mt', 'mw', 'my', 'M', 'MK ', 'MH ', 'mq ', 'yt', 'Mu', 'Mr ', 'us', 'um', 'as', 'VI', 'mn ', 'Ms ', 'bd ', 'PE', 'FM', 'mm', 'MD', 'M', 'mz', 'MX ', 'nr ', 'NP ', 'ni', 'ne', 'NG ', 'Nu', 'no', 'NF ', 'Na', 'Za', 'Aq ', 'GS ', 'EU', 'pw ', 'pn', 'pt ', 'JP', 'se', 'CH', 'sv', 'Ws ', 'yu ', 'sl', 'SN ', 'cy', 'scs', 'sa ', 'cx', 'st', 'sh', 'kn ', 'LC ', 'SM', 'PM ', 'VC', 'LK ', 'SK', 'Si', 'S1', 'sz', 'SD ', 'sr', 'sb ', 'so', 'TJ', 'tw ', 'th', 'tz', 'to', 'TC ', 'TT ', 'tn ',' TV ', 'tr', 'TM', 'TK ', 'WF', 'vu ', 'GT', 've ', 'bn ', 'ug', 'ua ', 'uy', 'uz', 'els', 'eh', 'Gr ', 'HK', 'SG ', 'NC ', 'yz', 'hu', 'sy ', 'jm', 'AM ', 'AC', 'Ye', 'IQ ', 'ir', 'Il ', 'It', 'in', 'id', 'uk', 'vg ', 'io', 'Jo', 'vn', 'zm', 'Je ', 'TD ', 'GI', 'cl', 'CF ', 'cn', 'ymr', 'com ', 'arpa', 'edu', 'Gov ', 'int', 'Mil ', 'net', 'org', 'biz', 'info', 'pro', 'name', 'Museum ', 'coop ', 'Aero', 'XXX', 'idv', 'me', 'mobi', 'Air', 'Ax ', 'bl', 'bq', 'cat ', 'cw ', 'GB', 'jobs', 'MF', 'Rs ', 'su', 'sx', 'Tel ', 'travel'); if (! Preg_match ("/^ http/is", $ url) {$ url = "http ://". $ url;} $ res = null; $ res-> domain = null; $ res-> host = null; $ url_parse = parse_url (strtolower ($ url )); $ urlarr = explode (". ", $ url_parse ['host']); $ count = count ($ urlarr); if ($ count domain = $ url_parse ['host'];} elseif ($ count> 2) {$ last = array_pop ($ urlarr); $ last_1 = array_pop ($ urlarr); $ last_2 = array_pop ($ urlarr ); $ res-> domain = $ last_1. '. '. $ last; $ res-> host = $ last_2; if (in_array ($ last, $ state_domain) {$ res-> domain = $ last_1. '. '. $ last; $ res-> host = implode ('. ', $ urlarr);} if (in_array ($ last_1, $ state_domain) {$ res-> domain = $ last_2. '. '. $ last_1. '. '. $ last; $ res-> host = implode ('. ', $ urlarr) ;}# print_r (get_defined_vars (); die;} return $ res ;}