☰

每当与第三个空格匹配时，就会出现换行符

tag-icon • tag-icon perl
每当与第三个空格匹配时，就会出现换行符

我有如下数据：

 8.620 -9.182 1.758 8.786 -8.249 -0.495 8.614 -9.652 -1.158 9.446 -9.278 
  0.350 11.450 -7.809 0.887 10.638 -9.000 2.070 11.179 -10.871 -1.200 7.583  
 -10.330 0.400 7.079 -9.330 -1.014 6.745 -11.702 0.004 11.610 -12.260 -1.101   
12.381 -13.783 -

我想制作三列行，这样只要它与第三个空格匹配，就打印新行。是否有一些我可以使用 bash 命令，或者如何在 perl 脚本中更改它。这不是文件，我根据空格拆分行，拾取 [6,7,8] 元素并将这些元素推送到数组中。当我打印数组时，它看起来杂乱无章。

这是脚本的一部分：

if ($file_each[$line]=~/^ATOM/)
                {
            $file_each[$line]=~s/^ATOM//;
                    @os=split '\s+', $file_each[$line];
            chomp @os[6,7,8];
            push @coord, @os [6,7,8];
            print "@coord\n";
            }

结果应该是这样的：

8.620 -9.182 1.758  
8.786 -8.249 -0.495  
8.614 -9.652 -1.158

答案1

如果字符串$line包含您的数字，请尝试：

$line =~ s/(.*?\d +.*?\d .*?\d) +/$1\n/g;

我们可以从文件中尝试

perl -pe 's/(.*?\d +.*?\d .*?\d) +/$1\n/g' ex

相关内容