如何从垂直名称值对集转换 csv 列表（水平）

发布于 2024-08-21 09:28:36 字数 211 浏览 8 评论 0原文

我有一个这样的列表：

GTPYANJ         695848
GTPYANJ         27811
FPORTAL3        432532

我想使用正则表达式将其变成这样：

GTPYANJ,695848,27811
FPORTAL3,432532

建议？

原文

I have a list like this:

GTPYANJ         695848
GTPYANJ         27811
FPORTAL3        432532

I want to turn it into this using regular expressions:

GTPYANJ,695848,27811
FPORTAL3,432532

Suggestions?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

泡沫很甜 2024-08-28 09:28:36

加载到 jEdit（或 Notepad++，或其他可以通过正则表达式搜索/替换的编辑器）中。

步骤 1 是确保分隔符是制表符。

然后，搜索

^(.*)\t(.*)\n\1

并替换为

$1\t$2,

重复查找/替换所有，直到不再匹配被发现。

load into jEdit (or Notepad++, or some other editor that can search/replace via regex.

Step 1 is to make sure that the delimiter is a tab.

Then, search for

^(.*)\t(.*)\n\1

and replace that with

$1\t$2,

Repeat the find/replace all until no more matches are found.

回复收藏 0 原文

狠疯拽 2024-08-28 09:28:36

Perl 单行代码：

perl -e 'while(<>) { chomp; ($tag, $num) = split /\s+/; $tmp{$tag} .= ",$num"; } foreach $t (sort keys %tmp) { print $t.$tmp{$t}."\n" } '  myfile.txt

比尝试将多遍正则表达式拼凑在一起要容易得多，在正确之前，它很可能会中断几次，并且这取决于要排序的数据，并且可能需要第二个正则表达式来重新格式化一切都在最后……

Perl one-liner:

perl -e 'while(<>) { chomp; ($tag, $num) = split /\s+/; $tmp{$tag} .= ",$num"; } foreach $t (sort keys %tmp) { print $t.$tmp{$t}."\n" } '  myfile.txt

Much easier than trying to hobble together a multi-pass regex that will most likely break a couple of times before you get it right, and which depends on the data being sorted, and which might require a second regex to reformat everything at the end...

回复收藏 0 原文

~没有更多了~