我有一个包含以下结构的 html 文件:
<h1 class="section">First title</h1>
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
<h1 class="section">Second title</h1>
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">Chapter title</h2>
Chapter text here.
我想在章节标题前添加一个数字,如下所示:
<h1 class="section">First title</h1>
<div><h2 class="chapter">1. Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">2. Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">3. Chapter title</h2>
Chapter text here.
<h1 class="section">Second title</h1>
<div><h2 class="chapter">1. Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">2. Chapter title</h2>
Chapter text here.
<div><h2 class="chapter">3. Chapter title</h2>
Chapter text here.
我尝试使用计数器重置、计数器增量作为标题通过 CSS 插入章节编号,但这仅在某些情况下有效。
是否有一个脚本(python,perl,???)可以搜索 class="section",然后在章节标题前按顺序插入数字?
以下是实际文件的示例:
<body><div class='root'><h1 class="section">Génesis</h1><div><h2
class="chapter">Dios ordena el universo</h2><div>01 En el principio,
cuando Dios creó los cielos y la tierra, </div><div>02 todo era
confusión y no había nada en la tierra. Las tinieblas cubrían los
abismos mientras el espíritu de Dios aleteaba sobre la superficie de
las ag [many lines here] </div><div><h2 class="chapter">Descanso del
séptimo día</h2><div>01 Así estuvieron [many lines here] <div
class='root'><h1 class="section">Éxodo</h1><div><h2 class="chapter">Los
hebreos se multiplican en Egipto</h2><div>01 Estos son los nombres de
los hijos de Israel que llegaron con Jacob a Egipto, cada uno con su
familia:</div><div>02 Rubén, Simeón, Leví, Judá,</div><div>03 Isacar,
[many lines here] etc, etc
答案1
编辑
现在我已经看过你的文件了,问题在于你没有正常的行尾。事实上,你的整个文件看起来都是一行长行,对吗?
我的脚本依赖于逐行解析文件。在文件的实际格式中,行似乎是随机断开的,因此解析起来非常困难。当然,正如已经表达得相当雄辩,虽然有点疯狂这里,你永远不应该用正则表达式来解析 HTML。
也就是说,下面的脚本适用于您发布的文件。
#!/usr/bin/perl
my $file=<>; ## Load the file into memory
my $a=1; ## Set up a counter
## Split the file on each occurence of
## 'class="chapter"' and save into the array @b
my @b=split(/class=.chapter.>/,$file);
## Print the beginning of the file
## and remove it from the array.
print shift(@b);
## Now, go through the array, adding the counter ($a)
## to each chapter heading.
foreach (@b) {
## Print 'class="chapter"', the counter and
## the rest of the text until the next chapter heading
print "class=\"chapter\">$a. $_";
$a++; ## Increment the counter
$a=1 if /class="section"/; ## reset the counter
}
答案2
答案3
CSS 还可以帮助它自动编号:
a { counter-reset: section; }
h2:before {
counter-increment: section;
content: counter(section) ". ";
display: inline;
}