我有一个函数可以将文档转换为不同的格式,然后根据文档类型调用另一个函数。除了需要一些清理的 HTML 文档之外,它对于所有内容都非常简单,并且清理会根据它的来源而有所不同。所以我有一个想法,我可以将对子例程的引用传递给转换函数,这样调用者就有机会修改 HTML,有点像这样(我不在工作,所以这不是复制和粘贴) :
package Converter;
...
sub convert
{
my ($self, $filename, $coderef) = @_;
if ($filename =~ /html?$/i) {
$self->_convert_html($filename, $coderef);
}
}
sub _convert_html
{
my ($self, $filename, $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///)”。有什么办法可以做我想做的事吗?
谢谢