我需要在哈希数组或哈希树中获取嵌套块,以便能够用动态内容替换块.我需要替换之间的代码
<!--block:XXX-->
和第一个结束块
<!--endblock-->
用我的动态内容.
我有这个代码,找到一个级别的注释块但不嵌套：
#<!--block:listing-->... html code block here ...<!--endblock-->
$blocks{$1} = $2 while $content =~ /<!--block:(.*?)-->((?:(?:(?!<!--(.*?)-->).)|(?R))*?)<!--endblock-->/igs;
这是我想要处理的完整嵌套html模板.所以我需要找到并替换内部块“block：third”并将其替换为我的内容,然后找到“block：second”并替换它然后找到外部块“block：first”并替换它.请注意,可以有任意数量的嵌套块,而不是像下面的示例那样只有三个,它可以是几个嵌套块.
use Data::Dumper;
$content=<<HTML;
some html content here
<!--block:first-->
some html content here
<!--block:second-->
some html content here
<!--block:third-->
some html content here
<!--endblock-->
some html content here
<!--endblock-->
some html content here
<!--endblock-->
HTML
$blocks{$1} = $2 while $content =~ /<!--block:(.*?)-->((?:(?:(?!<!--(.*?)-->).)|(?R))*?)<!--endblock-->/igs;
print Dumper(%blocks);
所以我可以访问和修改块,比如$block {first} =“我的内容在这里”和$block {second} =“另一个内容在这里”然后替换块.
我创建了这个regex
我要补充一点.这符合我以前的答案,但稍微多一些
完成,我不想再回答这个问题了.
完成,我不想再回答这个问题了.
这是针对@daliaessam的,是对@Miller轶事的递归解析的具体回应
使用正则表达式.
只有3个部分需要考虑.所以,使用我之前的表现形式,我向你们展示了一个
关于如何做到这一点的模板.它并不像你想象的那么难.
干杯!
# //////////////////////////////////////////////////////
# // The General Guide to 3-Part Recursive Parsing
# // ----------------------------------------------
# // Part 1. CONTENT
# // Part 2. CORE
# // Part 3. ERRORS
(?is)
(?:
( # (1),Take off CONTENT
(?&content)
)
| # OR
(?> # Start-Delimiter (in this case,must be atomic because of .*?)
<!--block:
( .*? ) # (2),Block name
-->
)
( # (3),Take off The CORE
(?&core)
|
)
<!--endblock--> # End-Delimiter
| # OR
( # (4),Take off Unbalanced (delimeter) ERRORS
<!--
(?: block: .*? | endblock )
-->
)
)
# ///////////////////////
# // Subroutines
# // ---------------
(?(DEFINE)
# core
(?<core>
(?>
(?&content)
|
(?> <!--block: .*? --> )
# recurse core
(?:
(?&core)
|
)
<!--endblock-->
)+
)
# content
(?<content>
(?>
(?!
<!--
(?: block: .*? | endblock )
-->
)
.
)+
)
)
Perl代码：
use strict;
use warnings;
use Data::Dumper;
$/ = undef;
my $content = <DATA>;
# Set the error mode on/off here ..
my $BailOnError = 1;
my $IsError = 0;
my $href = {};
ParseCore( $href,$content );
#print Dumper($href);
print "\n\n";
print "\nBase======================\n";
print $href->{content};
print "\nFirst======================\n";
print $href->{first}->{content};
print "\nSecond======================\n";
print $href->{first}->{second}->{content};
print "\nThird======================\n";
print $href->{first}->{second}->{third}->{content};
print "\nFourth======================\n";
print $href->{first}->{second}->{third}->{fourth}->{content};
print "\nFifth======================\n";
print $href->{first}->{second}->{third}->{fourth}->{fifth}->{content};
print "\nSix======================\n";
print $href->{six}->{content};
print "\nSeven======================\n";
print $href->{six}->{seven}->{content};
print "\nEight======================\n";
print $href->{six}->{seven}->{eight}->{content};
exit;
sub ParseCore
{
my ($aref,$core) = @_;
my ($k,$v);
while ( $core =~ /(?is)(?:((?&content))|(?><!--block:(.*?)-->)((?&core)|)<!--endblock-->|(<!--(?:block:.*?|endblock)-->))(?(DEFINE)(?<core>(?>(?&content)|(?><!--block:.*?-->)(?:(?&core)|)<!--endblock-->)+)(?<content>(?>(?!<!--(?:block:.*?|endblock)-->).)+))/g )
{
if (defined $1)
{
# CONTENT
$aref->{content} .= $1;
}
elsif (defined $2)
{
# CORE
$k = $2; $v = $3;
$aref->{$k} = {};
# $aref->{$k}->{content} = $v;
# $aref->{$k}->{match} = $&;
my $curraref = $aref->{$k};
my $ret = ParseCore($aref->{$k},$v);
if ( $BailOnError && $IsError ) {
last;
}
if (defined $ret) {
$curraref->{'#next'} = $ret;
}
}
else
{
# ERRORS
print "Unbalanced '$4' at position = ",$-[0];
$IsError = 1;
# Decide to continue here ..
# If BailOnError is set,just unwind recursion.
# -------------------------------------------------
if ( $BailOnError ) {
last;
}
}
}
return $k;
}
#================================================
__DATA__
some html content here top base
<!--block:first-->
<table border="1" style="color:red;">
<tr class="lines">
<td align="left" valign="<--valign-->">
<b>bold</b><a href="http://www.mewsoft.com">mewsoft</a>
<!--hello--> <--again--><!--world-->
some html content here 1 top
<!--block:second-->
some html content here 2 top
<!--block:third-->
some html content here 3 top
<!--block:fourth-->
some html content here 4 top
<!--block:fifth-->
some html content here 5a
some html content here 5b
<!--endblock-->
<!--endblock-->
some html content here 3a
some html content here 3b
<!--endblock-->
some html content here 2 bottom
<!--endblock-->
some html content here 1 bottom
<!--endblock-->
some html content here1-5 bottom base
some html content here 6-8 top base
<!--block:six-->
some html content here 6 top
<!--block:seven-->
some html content here 7 top
<!--block:eight-->
some html content here 8a
some html content here 8b
<!--endblock-->
some html content here 7 bottom
<!--endblock-->
some html content here 6 bottom
<!--endblock-->
some html content here 6-8 bottom base
输出>>
Base======================
some html content here top base
some html content here1-5 bottom base
some html content here 6-8 top base
some html content here 6-8 bottom base
First======================
<table border="1" style="color:red;">
<tr class="lines">
<td align="left" valign="<--valign-->">
<b>bold</b><a href="http://www.mewsoft.com">mewsoft</a>
<!--hello--> <--again--><!--world-->
some html content here 1 top
some html content here 1 bottom
Second======================
some html content here 2 top
some html content here 2 bottom
Third======================
some html content here 3 top
some html content here 3a
some html content here 3b
Fourth======================
some html content here 4 top
Fifth======================
some html content here 5a
some html content here 5b
Six======================
some html content here 6 top
some html content here 6 bottom
Seven======================
some html content here 7 top
some html content here 7 bottom
Eight======================
some html content here 8a
some html content here 8b