Perl 是否使方括号不显示在新行上？

我目前正在处理一个.txt文件，其中包含某些文件的数据点。 由于文件相当大，它们是按较小的部分处理的，但从处理过程中提取的输出没有按任何顺序排序

它们的存储方式如下：

1_1_0_1_0_1_1_0_232  [
  0 -19.72058 -18.89882 ]
1_0_0_0_0_0_0_0_0  [
  -0.5940279 -1.949468 -1.185638 ]
1_0_1_1_0_1_1_1_100  [
  -5.645662 -0.005585805 -6.196068 ]
1_0_1_1_0_1_1_1_101  [
  -15.86037 -1.192093e-07 -18.77053 ]
1_0_1_1_0_1_1_1_102  [
  -0.5648238 -1.970869 -1.230303 ]
1_0_1_1_1_0_1_0_103  [
  -0.5750521 -1.946886 -1.222114 ]
1_0_1_1_1_0_1_0_104  [
  -0.5926428 -1.941596 -1.191844 ]
1_0_1_1_1_0_1_0_105  [
  -25.25665 0 -31.0921 ]
1_0_1_1_1_0_1_0_106  [
  -0.001282441 -6.852591 -8.399776 ]
1_0_1_1_1_0_1_0_107  [
  -0.0001649993 -8.857877 -10.69688 ]
1_0_1_1_1_0_1_0_108  [
  -21.66693 0 -26.18516 ]
1_0_1_1_1_0_1_0_109  [
  -5.444038 -0.004555213 -8.408965 ]
1_1_0_1_0_1_0_0_200  [
  -4.023561 -0.01851013 -7.704897 ]
1_1_0_1_0_1_0_0_201  [
  -0.443548 -3.057277 -1.167226 ]
1_1_0_1_0_1_0_0_202  [
  -0.0001185011 -9.042104 -15.60585 ]
1_1_0_1_0_1_0_0_203  [
  -5.960466e-07 -14.37778 -25.2224 ]
1_1_0_1_0_1_0_0_204  [
  -0.5770675 -1.951139 -1.21623 ]
1_1_0_0_1_0_1_1_205  [
  -0.5849463 -1.938798 -1.207353 ]
1_1_0_0_1_0_1_1_206  [
  -0.5785673 -1.949474 -1.214192 ]
1_1_0_0_1_0_1_1_207  [
  -27.21529 0 -32.21676 ]
1_1_0_0_1_0_1_1_208  [
  -8.75938 -0.0001605878 -12.53627 ]
1_1_0_0_1_0_1_1_209  [
  -1.281936 -0.3837854 -3.188763 ]
1_0_0_0_0_0_0_1_20  [
  -0.2104172 -4.638866 -1.714325 ]
1_1_1_0_0_1_1_1_310  [
  -11.71479 -9.298368e-06 -13.70222 ]
1_1_1_0_0_1_1_1_311  [
  -24.71166 0 -30.45412 ]
1_1_1_0_0_1_1_1_312  [
  -2.145031 -0.1357486 -4.617914 ]
1_1_1_0_0_1_1_1_313  [
  -5.943637 -0.003112446 -7.630904 ]
1_1_1_0_0_1_1_1_314  [
  0 -25.82314 -31.98673 ]
1_1_1_0_0_1_1_1_315  [
  -8.178092e-05 -13.60563 -9.426649 ]
1_1_1_0_0_1_1_1_316  [
  -0.00326875 -6.071715 -6.952539 ]
1_1_1_0_0_1_1_1_317  [
  -17.92782 0 -24.64391 ]
1_1_1_0_0_1_1_1_318  [
  -2.979753 -0.05447901 -6.11194 ]
1_1_1_0_0_1_1_1_319  [
  -0.7661145 -1.118131 -1.568804 ]
1_0_0_0_0_0_0_1_31  [
  -0.5749408 -1.961912 -1.215127 ]
1_0_0_0_0_0_0_0_10  [
  -4.64927e-05 -9.977531 -20.60117 ]
1_0_1_1_1_1_0_1_120  [
  -0.4925551 -1.135103 -2.694917 ]
1_0_1_1_1_1_0_1_131  [
  -0.6127387 -1.958336 -1.148721 ]
1_1_0_0_0_0_0_1_142  [
  -0.008494892 -6.882521 -4.901772 ]
1_1_0_0_0_1_1_1_153  [
  0 -20.48085 -27.38916 ]
1_1_0_0_1_0_1_0_164  [
  -0.5370184 -1.622399 -1.52286 ]
1_1_0_0_1_0_1_0_175  [
  -24.08685 0 -29.42813 ]
1_1_0_0_1_1_1_0_186  [
  -1.665665 -0.2307523 -4.074597 ]
1_0_0_0_0_0_0_0_1  [
  -0.5880737 -1.945877 -1.198183 ]
1_1_0_0_1_0_1_1_210  [
  -0.001396737 -6.574267 -21.30147 ]
1_1_0_1_0_1_1_0_221  [
  -0.7456465 -1.893918 -0.980585 ]
1_0_0_0_0_0_1_1_42  [
  -3.838613e-05 -10.23002 -13.01793 ]
1_0_0_0_0_0_1_1_43  [
  -22.25132 0 -28.8467 ]
1_0_0_0_0_0_1_1_44  [
  -6.688306 -0.001266626 -10.79875 ]
1_0_0_0_0_0_1_1_45  [
  -0.429086 -2.197691 -1.436171 ]
1_0_0_0_0_0_1_1_46  [
  -0.6683982 -1.928907 -1.072464 ]
1_0_0_0_1_0_0_1_47  [
  -0.5767454 -1.972311 -1.206838 ]
1_0_0_0_1_0_0_1_48  [
  -0.5789171 -1.965128 -1.206118 ]
1_0_0_0_1_0_0_1_49  [
  -19.90514 0 -25.12686 ]
1_0_0_0_0_0_0_0_4  [
  -4.768373e-07 -14.66496 -28.4888 ]
1_0_0_0_1_0_0_1_50  [
  -0.01524216 -6.729354 -4.273614 ]
1_0_0_0_1_0_0_1_51  [
  -3.576279e-07 -14.9054 -27.44406 ]
1_0_0_0_1_0_0_1_53  [
  -0.003753785 -8.922103 -5.623135 ]

0_0_1_1_0_1_1_1 [
-0.5757762 -1.949812 -1.219321
-0.5732827 -1.974719 -1.212248
-0.005632018 -5.198827 -9.280998
-0.004484621 -7.180546 -5.595852
-1.776234e-05 -10.93515 -20.11548
-22.73301 0 -29.42717
-4.227753 -0.01532919 -7.374347
-3.396693 -0.05122549 -4.10732
-0.0008418526 -7.08029 -20.86733
-21.26725 0 -27.1029
-2.457597 -0.09611109 -5.11661
-5.492554 -0.00666456 -5.981491
-12.60927 -3.576285e-06 -15.31444
-0.5809742 -1.953598 -1.2077
-0.5807223 -1.969571 -1.200681
]
...

它存储的格式是：

\u[]

我目前使用perl脚本对数据点进行排序

perl -n00e '
    while ( /([\d_]*)_(\d*) \s* \[ \s* (.*?) \s* \]/gmsx ) {
        ($name,$part,$datapoints) = ($1,$2,$3);
        $hash{$name}{$part}=$datapoints;
    }
    while (($key,$v)=each %hash) {
        print "$key [\n", (
            map "${$v}{$_}\n", sort {$a<=>$b} keys %{$v}
        ), "]\n";
    }
'

这是正确的，但端部方括号不应位于新行上， 但在打印最后一个数据点后，应将其放置一段距离。 看起来Perl脚本本身并没有显式地生成一行新行

---

但有些命令正在调用新行。。是否有可能否定这种影响？

以下是@BytePasher在评论中建议的内容：

while (($key,$v)=each %hash) {
        print "$key [\n", join("\n",
            map "${$v}{$_}", sort {$a<=>$b} keys %{$v}
        ), "             ]\n";
}

while（（$key，$v）=每个%hash）{
打印“$key[\n”，加入（“\n”，
映射“${$v}{$}”，排序{$a$b}键%{$v}
)，“]\n”；
}

所讨论的行是

映射“${$v}{$}\n”，排序{…}键%{$v}

。“\n”在每个数据点后添加新行。在最后一个数据点之后，将添加一个“]\n”。相反，您可以将所有数据点放在一个数组中，通过换行符连接（）数组，然后打印右括号。。。我想我应该把这句话说清楚一点。。。但是谢谢你让我了解join（）函数@再见。我要试一试。