☰

在 bash 中，如何在不使用鼠标的情况下复制显示的文本文件中的 URL？

tag-icon • tag-icon bash cat text url
在 bash 中，如何在不使用鼠标的情况下复制显示的文本文件中的 URL？

让我带你来一次短暂的旅行：

打开终端。

类型

cat <any text file in your current working directory, containing a URL, at the beginning> | head

该文本文件的前 10 行打印在标准输出上，并显示在屏幕上。

就我而言，它看起来像这样：

(Beginning of line 7)yada yada yada [[https://example-url-1.com][Example URL #1]] - [[https://example-url-2.com][Example URL #2]] yada yada yada (End of line 7)

两个链接位于第 7 行的中间，被文本包围，而不是单独位于该行中。

现在的测验问题是：如何仅将 URL #2 复制到内存中，以便在不使用鼠标的情况下将其粘贴到另一个程序中？

在 GNU emacs 中？超级简单：搜索“ht” - 光标跳转到链接开头，CM SPC，链接被标记，Mw，标记的部分被复制。但在bash中呢？

答案1

使用时你可以做这样的事情多路复用器。它有一个可搜索复制模式提供类似 Emacs 的键绑定。

您可以使用 （前缀）进入复制模式，C-b然后使用C-[（默认键绑定），使用 搜索输出C-s，使用 转到单词开头M-b，使用 开始选择C-Space，通过移动光标标记您想要的内容（您也可以next-word在配置中绑定命令），用 复制选择（并退出复制模式）M-w，然后用 粘贴C-]。

据我所知，这些是默认绑定，但您可能希望以不同的方式绑定它们。请注意，您可能需要采取额外的步骤将粘贴缓冲区与系统剪贴板同步如果您想将其粘贴到终端之外！但只要想到我经历过的类似事情，我就会患上创伤后应激障碍，无论如何，这有点超出了我的范围。

它是所谓的终端多路复用器，充当终端仿真器中的终端仿真器。 Tmux 可能有其自身的问题（例如，配置所需的时间、额外的间接层等）。它可能适合你的工作流程，也可能不适合你的工作流程，但如果你使用 Emacs，我假设你愿意花时间进行配置，并评估它是否适合你。如果您有疑问，请联系我

答案2

啊，但是 shell 的工作只是为您提供一个（可编程）命令界面，并执行其他程序 – 它不做任何带有这些程序输出的东西（与 emacs 不同，emacs 控制如何将文件内容或程序输出显示在屏幕上）。

所以你有点找错了树：你想要的是程序的一个功能显示控制台中出现的内容的输出，而不是将内容放在控制台上的程序之一的输出！

因此，当您说“打开终端”时所指的程序。是你需要关心的——而不是它启动的程序（bash）。

我不知道您正在使用哪个终端仿真器 - 您没有机会告诉我们。因此，猜测可能是gnome-terminal，它没有提供与显示的控制台内容进行任何键盘交互的方法。

我建议尝试不同的终端模拟器：alacritty。它应该可以轻松安装在您使用的任何 Linux/BSD、MacOS 或 Windows 上。它有一个可视化模式，您可能会使用来自 Unixoids 的优秀文本编辑器系列；因为显然，您不能仅仅拦截应该进入终端中运行的程序的任意按键，您需要在“交互”和“视觉检查模式”之间进行更改。

按Ctrl+ Shift+ Space，您将进入导航模式hjkl；点击/，输入://enter并使用n来跳转终端中的 URL。点击打开当前突出显示的链接，如果足够了，请使用+ +enter退出模式。CtrlShiftSpace

答案3

通过管道将其...

perl -lne '/((http|ftp|https):\/\/([\w_-]+(?:(?:\.[\w_-]+)+))([\w.,@?^=%&:\/~+#-]*[\w@?^=%&\/~+#-]))/i && print $1' | xclip

答案4

head -n 10 filename | 
  perl -ne 'if (@M = (/\[\[(ht.*?)\]/g) and exists $M[1]) {
              print $M[1]
            }' |
  xsel -i -b

这将从每行中提取第二个匹配的 URL 并将其复制到剪贴板。如果有多行包含两个或多个 URL，那么它们都会被复制到剪贴板。您可能需要在输出中添加换行符或制表符或其他内容来分隔它们。您可以print使用 perl 的-l选项（即使用perl -lne ...而不是）轻松地为每个文件添加换行符perl -ne ...。

如果您只需要第二个 URL第一的匹配行，exit在第一次成功匹配并打印后添加一条语句 - 例如，将 perl 代码更改为：

perl -ne 'if (@M = (/\[\[(ht.*?)\]/g) and exists $M[1]) {
            print $M[1];
            exit
          }'

无论如何，它使用 perl 将所有匹配的 URL 捕获到 array 中@M，然后打印第二个元素@M是否存在（perl 数组从 0 开始，而不是 1，所以就是这样$M[1]）。

我在这里使用了 perl，因为 perl 可以轻松提取与模式匹配的所有子字符串，但您可以使用 awk 或您喜欢的任何其他语言（或工具管道）。

这里重要的工具是xsel, nothead或perl- xsel 是从 stdin 复制到剪贴板的工具。man xsel详情请参阅。

相关内容