标签：awk sed linux perl database

不久之前,我就开始了我的技术冒险-就像您从问题中感到的那样-但现在我陷入了困境,因为经过将近一整天的思考和搜索,我不知道解决我问题的合适方法.

简而言之,我得到了一个包含数千行的文件,其中包含电子邮件和名字.问题是我真的需要在域名旁边添加另一列,例如电子邮件地址旁边的域名.请看下面的例子.

现在是这样的：

    something@nothing.tld|:|george|-|
    anything@another.tld|:|thomas|-|
    third@address.tld|:|kelly|-|

我想要的样子：

    something@nothing.tld|:|nothing.tld|--|george|-|
    anything@another.tld|:|another.tld|--|thomas|-|
    third@address.tld|:|address.tld|--|kelly|-|

我最好的猜测是使用sed开始该过程并提取域,但是如何将提取的域粘贴到粘贴的同一行中.

    sed -e 's/.*@\(.*\)|:|*/\1/'

如果您还可以给出简短的解释以及解决方案,那将非常有帮助.

任何帮助表示赞赏.

解决方法:

如果您在名为file1的文件中包含以下数据,

 something@nothing.tld|:|george|-|
 anything@another.tld|:|thomas|-|
 third@address.tld|:|kelly|-|

您可以使用：和@作为分隔符,并使用awk在其后添加数据,然后将其保存到新文件中,

awk -F '[@:]' '{ print $1"@"$2 ":|" $2"--" $3 }' file1 > file2

上面的命令将以下数据保存在名为file2的文件中,

something@nothing.tld|:|nothing.tld|--|george|-|
anything@another.tld|:|another.tld|--|thomas|-|
third@address.tld|:|address.tld|--|kelly|-|

标签：awk,sed,linux,perl,database
来源： https://codeday.me/bug/20191109/2011325.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。