如何使用 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);

Answer 2

如果您的输入数据作为字符串数组 (@strings) 出现，这

for my $s (@strings) {
   my $output = join ' ',
                map /^\s*(.+)\s*$/ ? $1 : (),
                unpack('A19 A15 x19 A*', $s);
   print "$output\n"
}

将提取并修剪所需的信息。

姓名1 |姓名2 |位置

和

约翰·米勒 |罗伯特·吉姆 |助理总经理

（“|”是我为了更好地解释结果而添加的）

问候

rbo

Answer 3

假设字段之间的空格不固定，因此在两个或多个空格的基础上分割字符串，这样就不会像 JONH MILLER 这样将名称分成两部分。

#!/usr/bin/perl
use strict;
use warning;
my $string = "NAME1              NAME2          DEPTNAME           POSITION
             JONH MILLER        ROBERT JIM     CS                 ASST GENERAL MANAGER ";
my @string_parts = split /\s\s+/, $string;
foreach my $test (@string_parts){  
      print"$test\n";
}

Answer 4

从那里的样本来看，单个空格属于数据，但 2 个或更多连续空格则不属于数据。因此您可以轻松地分割成 2 个或更多空间。我添加的唯一内容是使用 List::MoreUtils: ：网格

use List::MoreUtils qw<mesh>;
my @names   = map { chomp; $_ } split /\s{2,}/, <$file>;
my @records = map { chomp; { mesh( @names, @{[ split /\s{2,}/ ]} ) } } <$file>;

Answer 5

考虑在命令行中的 Perl 单行中使用自动拆分：

$ perl -F/\s{2,}/ -ane 'print qq/@F[0,1,3]\n/' file

单行将拆分为两个或多个连续空格并打印第一个、第二个和第四个字段，对应于 NAME1、NAME2 和 POSITION 字段。

当然，如果您只有一个空格分隔 NAME1 和 NAME2 条目，则这种情况将会中断，但需要有关您的文件的更多信息才能确定最佳操作方案。

Answer 6

按空格分割：

@string_parts = split /\s{2,}/, $string;

这会将 $string 分割成子字符串列表。分隔符将是正则表达式 \s+，这意味着一个或多个空白字符。这包括空格、制表符和（除非我弄错了）换行符。

编辑：我发现要求之一不是仅分割一个空间，而是分割两个或多个空间。我相应地修改了正则表达式。