如何删除带有无意义格式数字的行？

Question 1

使用乐（以前称为 Perl_6）

~$  raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
             .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
             .raku.put for @a;'  file

用于可视化目的的示例输出：

${"1.500" => $($(26e0, 0e0), $(27e0, 9.41e-316), $(43e0, 6.984e-96), $(159e0, 7.376e-19), $(160e0, 1.089e-18), $(161e0, 15.96e0), $(162e0, 2.32e-10))}
${"18.500" => $($(27e0, 0e0), $(28e0, 4.412e-297), $(88e0, 7.275e-15))}

Raku 是 Perl 家族中的一种编程语言，具有有理数和内置 Unicode 支持。上面，一般策略是创建一个哈希数组，第 1 列和第 5 列（索引）中的DEG值为和测量值。key[0,4]value

@声明了 -sigiled 数组 ( ) @a。 Raku 代码会自动读取lines，join并在换行符上将它们重新组合在一起\n。从这里开始，我们通过split查找\n之前出现的换行符来打破记录DEG。进入该{ … }块，每个记录再次split换\n行，.[0].words.[2]第一个元素的第三个单词变成key.粗=>箭头表示“对”结构，成为value.请注意这两个.subst调用：第一个调用在数字和由加号或减号\d组成的定制字符类之间插入“e”，第二个调用将“D”更改为“e”。<[+-]>值被转换为.Num，并将%( … )哈希值推送到@a数组中。该.raku方法被添加到输出行，以实现 Raku 数据内部表示的可视化（note.perl也可用作同义词）。

绘图的实际输出：

更改最后一行.raku.put for @a以获得所需的绘图输出。下面是一些示例（如果需要，您也可以使用 Rakuprintf或sprintf）：

1.替换put上面的 out 行以返回第一个DEG：

for @a[0].kv -> $k,$v {put ([Z] $k xx $v.elems, $v).join: "\n"}

#Returns 3-columns:

1.500 26 0
1.500 27 9.41e-316
1.500 43 6.984e-96
1.500 159 7.376e-19
1.500 160 1.089e-18
1.500 161 15.96
1.500 162 2.32e-10

2.或者使用以下行立即返回整个 3 列表put：

for @a { for ($_.kv) -> $k,$v {put ([Z] $k xx $v.elems, $v).join: "\n"}};

#Returns:

1.500 26 0
1.500 27 9.41e-316
1.500 43 6.984e-96
1.500 159 7.376e-19
1.500 160 1.089e-18
1.500 161 15.96
1.500 162 2.32e-10
18.500 27 0
18.500 28 4.412e-297
18.500 88 7.275e-15

3. 最后： Raku 有一个=~=“公差”运算符，可用于确定值是否约为。等于 0（默认为 1e-15，请参阅下面的链接）。把它们放在一起：

~$ raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
            .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
            for @a {  for ($_.kv) -> $k,$v {put ([Z] $k xx $v.elems,  $v>>.map( -> $i { ($i =~= 0) ?? 0 !! $i } )).join: "\n"}};'  file
1.500 26 0
1.500 27 0
1.500 43 0
1.500 159 0
1.500 160 0
1.500 161 15.96
1.500 162 2.32e-10
18.500 27 0
18.500 28 0
18.500 88 7.275e-15

https://docs.raku.org/language/hashmap.html
https://docs.raku.org/language/5to6-nutshell.html#=%3E_Fat_comma
https://docs.raku.org/routine/=~=.html
https://raku.org

Answer

使用乐（以前称为 Perl_6）

~$  raku -e 'my @a; for lines.join("\n").split(/ \n <?before DEG> /) { @a.push: %(.split("\n").[0].words.[2] => \
             .split("\n")[1..*].map(*.words[0,4])>>.map(*.subst( / (\d+) (<[+-]>) /, {$0 ~ "e" ~ $1} ).subst(/D/, "e") )>>.Num) };  \
             .raku.put for @a;'  file