使用Perl将换行符插入HTML文件

时间:2010-12-05 00:20:08

标签: perl

我有一个由某些工具生成的HTML文件。但是,我需要使用Perl在每行之后插入换行符。

在浏览器中,如果我要查看此文件的来源,它将如下所示:

<body>
This is line number one
This is another line
This is also
Another line
</body>

显然这只是文件的一小部分。但是,我想我需要打开这个文件并在每行的末尾插入
以便格式化它,这样当在浏览器中查看时,它看起来很“漂亮”。

这是最明智/最有效的方法吗?

谢谢。

1 个答案:

答案 0 :(得分:2)

如果您希望文件以与文本编辑器打开时更接近的方式显示在浏览器上,则有多种方法。

也许最简单的方法是将文本包含在&lt; pre&gt;中。阻止,这样格式保持原样。

<pre>
Hello,
this is
a test
</pre>

如果你绝对肯定想要添加一个可以与浏览器一起工作的换行符,并且必须使用Perl,你可以尝试这样的事情:

perl -n -e "print if s/\n/<br>\n/" < source.html > destination.html

这是非常糟糕的perl,但它确实有效。

您可以使用sed获得类似的结果:

sed -e "s/$/<br>/" < source.html > destination.html