如何使用Perl提取数据列？

Question

我有这种字符串

NAME1              NAME2          DEPTNAME           POSITION
JONH MILLER        ROBERT JIM     CS                 ASST GENERAL MANAGER 

我希望输出是name1 name2和位置如何使用split/regex/trim/etc并且不使用CPAN模块？

Answer 1

这将取决于它们是固定长度字段,还是它们是制表符分隔的.最简单的(使用拆分)是它们是否以制表符分隔.

my ($name1, $name2, $deptName, $position) = split("\t", $string);

如果它们是固定的长度,并且假设它们都是10个字符长,你就可以解析它

my ($name1, $name2, $deptName, $position) = unpack("A10 A10 A10 A10", $string);