我需要在Perl程序中处理一些HTTP URL,但我怀疑
URI类应该如何帮助我.
特别是,我希望使用URI类来解析相对URL并获取它们的组件.但问题是：
>我需要一个函数来处理URI对象和URI字符串作为参数(或确保只传递一个)
sub foo_string_or_url {
my $uri = URI->new(shift);
这是正确的方法吗？我不太喜欢它,因为它将URI字符串化并不必要地创建新对象.
>提取组件
my $host = $uri->host;
这也是有问题的,因为并非所有URI都有主机,特别是如果有人将垃圾传递给函数,这将是die().
>解析相对URL
my $new_url = URI::URL->new($uri,$base)->abs;
IIUC,没有 – > abs,结果仍将字符串化为相对URL(并且不适用于HTTP :: Requests),我是对的吗？此外,这是否保证返回URI？
我该如何处理这些问题？可能性是
>始终使用 – > isa(‘URI’)和 – > can(“host”)
>对我来说似乎容易出错并且很难看
>根本不要使用URI类,并使用正则表达式解析URL
>我仍然宁愿使用库解决方案而不是自己调试
>在try {…} catch {…}中换行URI操作
>看第一点
使用URI类是否有一种理智,简单的方法？我没有想到的简单(在上面的列表中)？
解决方法
我认为你的问题可以概括为：参数验证很繁琐,我该怎么办呢？
>我也不喜欢它.这是开发商之间不同意见的问题,其他人说强制比切片面包更好,特别是当由Moose自动完成时.我认为只允许一种类型的程序简化了程序.此外,YAGNI适用于绝大多数情况.拒绝错误的类型,使用辅助模块,如Params::Validate/MooseX::Method::Signatures/MooseX::Declare,以避免代码示例中显示的手动检查.
>这是理想的行为.异常处理机制允许您编写适合每种情况的自定义代码.如果您认为它不美观,请将其删除,并注意让异常不受控制的后果.
use Try::Tiny;
my $host;
try {
$host = $uri->host;
} catch {
warn "Could not determine host for $uri. Message was: $_. Retry/abort/ignore?\n";
…
};
>是的,是的.