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忽略给定的字节数（在这种情况下为空格）。

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

1 个答案: