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

最近写了一个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

脚本如下：

?

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict; my $line; while(<>){      s/\r\n//;      if(/(\S+)\s+(\S+)\s+(\S+)\s+(.*)/){      $line .=$2.':'.$4.'|';      } } 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很好的解决了这个问题。