Trouve toutes les URL dans une base SQL

                               

                            
/*------------------------------*/
/*
 Titre : Trouve toutes les URL dans une base SQL                                                                          
                                                                                                                          
 Auteur           : KOogar                                                                                                
 Date édition     : 22 Avril 2006                                                                                        
 Date mise a jour : 11 Aout 2019
                                                                                         
 Rapport de la maj:                                                                                                       
  - fonctionnement du code vérifié                                                                                  
  - modification de la description                                                                                        
*/
/*------------------------------*/

  //  DOMAINES => http://www.nom.ext  ET http://sousdomaine.nom.ext  ET 
  //  http://nom-nom.ext .....
  //  DOMAINE  => uniquement :: http://www.nom.ext

  // Toute les URL
  $q = "SELECT url FROM tb WHERE url REGEXP '^((http://www\.-)?)'";

  // Ou se trouve 'free.fr'
  $q = "SELECT * FROM tb WHERE url REGEXP 'free.fr'";
  
  //  http://DOMAINE/
  $q = 
"SELECT url FROM tb WHERE url REGEXP" .
" 'http://www.([[:alnum:]])+\.([a-z]{2,4})/$'";

  //  http://DOMAINE
  $q = 
"SELECT url FROM tb WHERE url REGEXP 'http://www.([[:alnum:]])+\.([a-z]{2,4})$'"
;

  //  http://DOMAINES/tout-ce-quil-y-a-derriere
  $q = "SELECT url FROM tb WHERE url REGEXP '^(http://(www\.-)?[^/]+/[^/]+)'";

  //  http://DOMAINES/tout-ce-quil-y-a-derriere  ET   http://DOMAINES/
  $q = "SELECT url FROM tb WHERE url REGEXP '^(http://(www\.-)?[^/]+/[^/]*)'";

  //  http://DOMAINES/rep/tout-ce-quil-y-a-derriere   ET  http://DOMAINES/rep/
  $q = 
"SELECT url FROM tb WHERE url REGEXP '^(http://(www\.-)?[^/]+/[^/]+/[^/]*)'";

  //  DOMAINES uniquement et ne selectionne pas  http://domaines.ext
  $q = 
"SELECT url FROM tb WHERE url REGEXP '^(http://[^w.]+[.]+[^.]+[.]+[^.]+$)'";

?>