sed正则表达式可以模拟lookbehind和lookahead吗?

时间:2013-02-15 01:24:05

标签: regex sed awk regex-negation regex-lookarounds

我正在尝试编写一个sed脚本,该脚本将捕获文本文件中的所有“裸”URL,并将其替换为<a href=[URL]>[URL]</a>。 “裸”是指未包含在锚标记内的URL。

我最初的想法是,我应该匹配前面没有“或”&gt;的网址,并且在它们之后也没有&lt;或a“。然而,我在表达“不要在前面或后面”的概念时遇到了困难,因为据我所知,sed没有前瞻或后视。

示例输入:

[Beginning of File]http://foo.bar arbitrary text
http://test.com other text
<a href="http://foobar.com">http://foobar.com</a>
Nearing end of file!!! http://yahoo.com[End of File]

所需的输出样本:

[Beginning of File]<a href="http://foo.bar">http://foo.bar</a> arbitrary text
<a href="http://test.com">http://test.com</a> other text
<a href="http://foo.bar">http://foo.bar</a>
Nearing end of file!!! <a href="http://yahoo.com">http://yahoo.com</a>[End of File]

注意第三行未经修改,因为它已在<a href>内。 另一方面,第一行和第二行都被修改。 最后,请注意所有非URL文本都是未修改的。

最终,我正在尝试做类似的事情:

sed s/[^>"](http:\/\/[^\s]\+)/<a href="\1">\1<\/a>/g 2-7-2013

我首先验证以下内容是否正确匹配并删除了一个网址:

sed 's/http:\/\/[^\s]\+//g'

然后我尝试了这个,但它无法匹配从文件/输入开始处开始的URL:

sed 's/[^\>"]http:\/\/[^\s]\+//g'

有没有办法在sed中解决这个问题,要么通过模拟lookbehind / lookahead,要么显式匹配文件的开头和文件结尾?

2 个答案:

答案 0 :(得分:4)

sed是一个简单替换单行的优秀工具,对于任何其他文本操作问题只需使用awk。

检查我在下面的BEGIN部分中使用的定义,以获取与URL匹配的正则表达式。它适用于您的样本,但我不知道它是否捕获所有可能的URL格式。即使它没有,但它可能足以满足您的需求。

$ cat file
[Beginning of File]http://foo.bar arbitrary text
http://test.com other text
<a href="http://foobar.com">http://foobar.com</a>
Nearing end of file!!! http://yahoo.com[End of File]
$
$ awk -f tst.awk file
[Beginning of File]<a href="http://foo.bar">http://foo.bar</a> arbitrary text
<a href="http://test.com">http://test.com</a> other text
<a href="http://foobar.com">http://foobar.com</a>
Nearing end of file!!! <a href="http://yahoo.com">http://yahoo.com</a>[End of File]
$
$ cat tst.awk
BEGIN{ urlRe="http:[/][/][[:alnum:]._]+" }
{
    head = ""
    tail = $0
    while ( match(tail,urlRe) ) {
       url  = substr(tail,RSTART,RLENGTH)
       href = "href=\"" url "\""

       if (index(tail,href) == (RSTART - 6) ) {
          # this url is inside href="url" so skip processing it and the next url match.
          count = 2
       }

       if (! (count && count--)) {
          url = "<a " href ">" url "</a>"
       }

       head = head substr(tail,1,RSTART-1) url
       tail = substr(tail,RSTART+RLENGTH)
    }

    print head tail
}

答案 1 :(得分:1)

您的命令显而易见的问题是

You did not escape the parenthesis "("

这是关于sed正则表达式的奇怪之处。与Perl正则表达式不同的是,许多符号默认为“文字”。你必须将它们转移到“功能”。尝试:

s/\([^>"]\?\)\(http:\/\/[^\s]\+\)/\1<a href="\2">\2<\/a>/g