0

Perl正则表达式删除一行中的空格并提取特定列

我的线看起来像这样:

324446  psharma jobA      2       0       435529  0       0       0     435531

在这里,我可以使用函数拆分行,split然后使用以下命令将值保存在数组中

@strings = split(/\s+/);

我不想要一个额外的变量。使用正则表达式,我想将第 1、2、3 和 10 列中的值提取为$1$2和.$3$10

4

1 回答 1

4

欢迎来到stackexchange。

不需要额外的变量:

use strict;
use warnings;

my $line = '  324446   psharma jobA 2   0 435529 0 0 0 435531     ';

# Remove leading and trailing white space
$line =~ s/^ \s+ | \s+ $//x;
# Split by consecutive white space and keep certain fields:
my ($col1, $col2, $col3, $col10) = (split m/\s+/, $line)[0, 1, 2, 9];

print "1: $col1 2: $col2 3: $col3 10: $col10\n";

输出:

1: 324446 2: psharma 3: jobA 10: 435531

这意味着您真的不需要任何额外的变量,即使使用split. 例如,如果您只想将这些字段传递给另一个函数,您的分割线将如下所示:

some_func((split m/\s+/, $line)[0, 1, 2, 9]);

请注意,我假设您的列号计数从 1 开始,而不是从 0 开始(意味着您的“第 1 列”是数字“324446”等)。这也是我在示例中命名变量的方式。

于 2012-08-28T07:44:30.473 回答