如何解压字符串 - 使用 sprintf 创建 - 在 Perl 中具有固定宽度

Question

以下行带有固定：

my $line = 'ATOM      1  P   CYT B   3      42.564 -34.232  -7.330  1.00105.08           P'

使用以下 sprintf 创建。

@entr = ( 'ATOM', '1', 'P', 'CYT', 'B', '3', '42.564', '-34.232', '-7.330', '1.00', '105.08', 'P' );
print sprintf("%-6s%5d  %-4s%3s %1s%4d    %8.3f%8.3f%8.3f%6.2f%6.2f          %2s\n",@newentr)

我想做的是反转这个过程。 即以$line 作为输入，创建看起来与@entr 完全相同的数组。 如何在 Perl 中实现这一点？

Answer 1

您可以使用unpack，或者使用正则表达式：

#                    %-6s%5d  %-4s%3s %1s%4d    %8.3f%8.3f%8.3f%6.2f%6.2f          %2s\n
my @rev_eng = unpack 'a6 a5 x2 a4 a3x1 a1 a4 x4 a8   a8   a8   a6   a6   x10       a2', $output;

my $reg = qr/^(.{6}) (.{5}) .. (.{4}) (...) . (.) (.{4}) .{4} (.{8}) (.{8}) (.{8}) (.{6}) (.{6}) .{10} (..)/x;
my @regex = $output =~ $reg;

s/^\s+|\s+$//g for @rev_eng, @regex;

在模板中，a 代表字符串，x 忽略给定的字节数（本例中为空格）。