Perl 正则表达式匹配eof

Question

如何使用 Perl 正则表达式搜索来查找以以下内容结尾的文件：

-------\r\n<eof>

在十六进制中，这是：

2D 2D 2D 2D 0D 0A (the end of the file)

我在 UltraEdit，它表示它使用 Boost Perl 正则表达式语法。

我已经想出了足够的办法来使用：

----\x0d\x0a

它确实找到了我想要的行，但仅限于不在文件末尾的数百行中：

whatever
------------     <- matches this also, which I don't want!
whatever
------------     <- matches this also, which I don't want!
whatever

Answer 1

UltraEdit 的正则表达式引擎以基于行的方式工作。这意味着它不区分行尾和文件尾。

它也不知道 \z 或 \Z 字符串结尾标记。此外，像 -----\r\n(?!.) 这样的否定前瞻断言在 UE 中不起作用。

UE 的正则表达式引擎可以让您失望。您可以做的是使用宏：

InsertMode
ColumnModeOff
HexOff
Key Ctrl+END
Key UP ARROW
PerlReOn
Find RegExp "-----\r\n"
IfFound
# Now do whatever you wanted to do...
EndIf

并让 UE 将其应用到您的所有文件。

Answer 2

您是否需要迭代文件中的每一行并使用正则表达式？如果没有，只需 seek 到文件中您需要的位置并检查字符串是否相等：

open my $fh, '<', $the_file;
seek $fh, 2, -6;            # seek to the end of file minus 6 bytes
read $fh, my $x, 6;         # read 6 bytes into $x
if ($x eq "----\r\n") {
    print "The end of file matches ----\\x0d\\x0a\n";
} else {
    print "The end of file doesn't match ----\\x0d\\x0a\n";
}

Answer 3

这是使用 UltraEdit JavaScript 实现此目的的一种方法。

使用 UltraEdit.activeDocument.bottom() 转到文件底部；
使用 UltraEdit.activeDocument.currentPos();存储您当前的位置。

向后搜索“\r\n”
再次使用 UltraEdit.activeDocument.currentPos();并将结果与​​前一个位置进行比较，以确定这实际上是否是文件末尾的 cr/lf。

根据这些字符位置进行您想要的任何替换/插入，或者弹出一个消息框来宣布结果。