perl - 屏幕抓取 : Automating a vim script

Question

在 vim 中，我将一系列网页(一次一个)加载到 vim 缓冲区中(使用 vim netrw 插件)，然后解析 html(使用 vim elinks 插件)。都好。然后，我使用正则表达式编写了一系列 vim 脚本，最终结果为几千行，其中每一行的格式都正确 (csv)，以便上传到数据库中。

为了做到这一点，我不得不使用 vim 的标记功能，这样我就可以遍历文档的特定点并将其重新组合成一个 csv 行。现在，我正在考虑通过使用 Perl 的“Mechanize”类库(UserAgent 等)来实现自动化。

问题:

1. vim 能否“标记”文档的各个部分(以便执行替换)在 Perl 中完成？
2. 有人建议直接使用“elinks”——我的意思是使用 ellinks 将页面加载到 headless 浏览器中并执行 Perl那里内容的脚本(？)
3. 如果那是正确的，会不会出现部署问题当我将站点从本地主机 LAMP 堆栈设置迁移到像 Bluehost 这样的托管公司？

谢谢

编辑 1:

尝试将知识从 VIM 迁移到 PERL:

如果 @flesk(下面)是正确的，那么我将如何执行这个例程(用 vim 编写)“标记”文本文件中的行(“i”和“j”)，然后将其用作range ('i,'j) 执行最后两个替换？

:g/^\s*\h/d|let@"=substitute(@"[:-2],'\s\+and\s\+',',','')|ki|/\n\s*\h\|\%$/kj|
\   'i,'js/^\s*\(\d\+\)\s\+-\s\+The/\=@".','.submatch(1).','/|'i,'js/\s\+//g

我在 perldoc perlre 手册中没有看到此功能。我是否缺少模块或对 m/或 qr/的一些基本 Perl 理解？

Answer 1

我相信您只需要某种HTML 解析器。例如我正在使用 HTML::TreeBuilder::XPath .