如何用perl将表格中不同列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起

概述最近写了一个perl脚本，实现的功能是将表格中其中两列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起。表格内容如下： 员工号码员工姓名职位入职日期1001张三销售1980/12/17 0:00:

最近写了一个perl脚本，实现的功能是将表格中其中两列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起。

表格内容如下：

员工号码	员工姓名	职位	入职日期
1001	张三	销售	1980/12/17 0:00:00
1002	李四	财务	1981/02/20 0:00:00
1003	王五	经理	1981/02/22 0:00:00
1004	陈二	会计	1981/04/02 0:00:00

要求如下：

将员工姓名和入职日期用键值对的形式拼凑在一起，然后将拼凑后的数据用“|”连接在一起。

结果如下：

张三:1980/12/17 0:00:00|李四:1981/02/20 0:00:00|王五:1981/02/22 0:00:00|陈二:1981/04/02 0:00:00

脚本如下：

#!/usr/bin/perluse strict;my $line;while(<>){     s/\r\n//;     if(/(\S+)\s+(\S+)\s+(\S+)\s+(.*)/){     $line .=.':'..'|';     }}print "$line\n";

脚本执行的结果如下：

员工姓名:入职日期|张三:1980/12/17 0:00:00|李四:1981/02/20 0:00:00|王五:1981/02/22 0:00:00|陈二:1981/04/02 0:00:00|

基本上符合要求。

总结：

1. \s在perl中匹配空白字符。\S匹配的是非空白字符。本来一开始用的是\w,但\w默认匹配的是英文字符，数字和_。不匹配中文字符，所以在这里就用了\S来表示。

2. 这种需求在实际中还是蛮常见的，普通的数据库对于若干列之间的拼凑还是很容易实现的，但是如何将拼凑后的结果再次拼凑在一起，却是个挑战，perl很好的解决了这个问题。

总结

以上是内存溢出为你收集整理的如何用perl将表格中不同列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起全部内容，希望文章能够帮你解决如何用perl将表格中不同列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。