Rebol url? функция действительно не обнаруживает url?

Question

Я хочу прочитать буфер обмена, если это URL-адрес. Проблема в URL? не выполняет эту работу:

url? to-url "any string" will return true 

Это нормально? Как мне сделать обнаружение, которое я хочу?

Answer 1

to-url делает строку в виде URL-адреса REBOL!

Вы хотите определить, соответствует ли строка правилам для URL-адреса. То есть, ни легко или дурак доказательство, как многие строки могут быть адреса в реальном мире, например:

• http://xxx
• ftp://xxx

• осколочная

• CGI-BIN/script.php

Если вы хотите захватить более распространенные случаи (например, те, которые начинаются с http: //, https: // и т. Д.), Затем рассмотрите использование parse.

Этого сценарий почти делает работу: link text

Что хватает некоторые определения кодировки (я думаю, что код должен быть поспешно cut'n'pasted откуда-то еще) ....

alpha: charset [#"a" - #"z" #"A" - #"Z"] 
digits: charset [#"0" - #"9"] 
alphadigit: union alpha digits 

... и пример того, как использовать его: Предполагая, что вы сохранили его локально как uri.r:

url-parse: do %uri.r 
parse "http://sss" parse-url/url 
== true 
parse "sss" parse-url/url 
== false 

Answer 2

Вы можете использовать:

url? load "any://string"` 

или

url? attempt [load "any string"] 

Чтобы использовать определение для Rebol в виде URL.