perl - Grep -> 如何替换文本文件的内容

Question

我有一个有很多行的文本文件，它的布局如下

zzzzz | id@host.tld |
yyyyy | id@host.tld |

每行其中一个，大约 1000 万行。

使用 Grep 表达式，我如何进行替换以获取

zzzzz
yyyyy

等文件中的每一行

也许使用 Perl 重写文件也可以，我只是不知道很多 Perl。

更新 1:有时会运行导出以生成:

id@host.tld | zzzzz
id@host.tld | yyyyy

更新 2:有时他们将行号保留为:

a variable digit row number | zzzzz | id@host.tld |
a variable digit row number | yyyyy | id@host.tld |

更新 3:此文件可以包含具有以下格式的行:

zzzzz | id@host.tld |
yyyyy | id@host.tld |
id@host.tld | zzzzz
id@host.tld | yyyyy
variable digit row number | zzzzz | id@host.tld |
variable digit row number | yyyyy | id@host.tld |

Answer 1

可以使用 (GNU) grep 来完成， 也:

grep -o '^[^|]*'

编辑:
如果您不想要尾随空格但希望允许前导空格。第一个字段中间的空格，您可以将命令更改为:

grep -o '^[^|]*[^| ]'