perl – 如何修改传递给子例程引用的标量引用？

我有一个函数将文档转换为不同的格式,然后根据类型文档调用另一个函数.除了需要进行一些清理的 HTML文档之外,所有内容都非常简单,而且根据它的来源,清理会有所不同.所以我有一个想法,我可以将一个子程序的引用传递给转换函数,这样调用者就有机会修改HTML,有点像(我不在工作,所以这不是复制和粘贴) ：

package Converter;
...
sub convert
{
    my ($self,$filename,$coderef) = @_;

    if ($filename =~ /html?$/i) {
        $self->_convert_html($filename,$coderef);
    }
}

sub _convert_html
{
    my ($self,$coderef) = @_;

    my $html = $self->slurp($filename);
    $coderef->(\$html); #this modifies the html
    $self->save_to_file($filename,$html);
}

然后通过以下方式调用：

Converter->new->convert("./whatever.html",sub { s/<html>/<xml>/i });

我沿着这些方向尝试了几个不同的东西,但我继续得到’在替换中使用未初始化的值(s ///)’.有什么方法可以做我想做的事情吗？

谢谢

解决方法

如果是我,我会避免修改标量引用并返回更改后的值：

sub _convert_html
{
    my ($self,$coderef) = @_;

    my $html = $self->slurp($filename);
    $html = $coderef->( $html ); #this modifies the html
    $self->save_to_file($filename,$html);
}

但是,如果要修改sub的参数,则值得知道所有子参数都是Perl中的pass-by-reference(@_的元素别名为sub调用的参数).所以你的转换子看起来像：

sub { $_[0] =~ s/<html>/<xml>/ }

但是如果你真的想要操作$_,就像你想要的代码示例一样,你需要使_convert_html()看起来像：

sub _convert_html
{
    my ($self,$coderef) = @_;

    my $html = $self->slurp($filename);

    $coderef->() for $html;

    $self->save_to_file($filename,$html);
}

for是一种正确本地化$_的简单方法.你也可以这样做：

sub _convert_html
{
    my ($self,$coderef) = @_;

    local $_ = $self->slurp($filename);

    $coderef->();

    $self->save_to_file($filename,$_);
}

perl – 如何修改传递给子例程引用的标量引用？

解决方法

相关文章