@E1n awk 肯定能实现，不过我只懂基本的 awk 脚本

一行脚本拯救你

perl -nE 'state %z; my @z = split(", "); $z{@z[0]} += @z[1]; END { say for %z; } ' < test.log
a
9.018948
b
0.000869
c
6.070837

perl6 -ne 'state %z; given .split(", ") { %z{.[0]} += .[1].Rat; }; END { say %z; }' < test.log
{a => 9.018948, b => 0.000869, c => 6.070837}

不是可以用 wrapper/decorator/装饰器么，获取原函数的返回值，自己处理然后返回，同#17

#!/usr/bin/perl6
# your code goes here

Str.^find_method("split").wrap(
----sub split(|c) {
--------my @x = callwith(|c); # call Str::split with all arguments
--------my @r = [];
--------my ($i, $j) = (0, 0);
--------my regex letter-number { <[a..z0..9]> }

--------for @x -> $x {
------------if $x.lc ~~ /<letter-number>/ && $i > 0 && @r[$i-1].lc ~~ /<letter-number>/ {
----------------@r[$i-1] ~= $x;
------------} else {
----------------@r[$i++] = $x;
------------}
--------}
--------@r;
----}
);

my $ms = "为了让大家在 V2EX 上的时间更有效率";

say $ms;

say $ms.split("").join("===");

https://ideone.com/FLlxXe

IEEE754 实现的浮点就是这样的，有的语言有支持无限精度的浮点数，比如

#!/usr/bin/perl6
# your code goes here

# default is Rat
say 0.333.WHAT;
say 0.2222 - 0.22 - 0.0005;
say 0.2222 - 0.22 - 0.0005 == 0.0017;

# Num is IEEE754 number
say 0.255.Num.WHAT;
say 0.2222.Num - 0.22.Num - 0.0005.Num;

have a try: https://ideone.com/CckupN

我记得 cp 这个命令就是这样的，可以使用 stdbuf 这个命令

@yjxlovejsn 微信除了聊天和支付都可以关闭吧。。。

他们怎么没有贴个 github 网址啥的。。

思路不就是读多少处理多少么。。

可能是 只有 SSD 的问题，之前遇到过有人这样。。
配置显然是没有一点问题的。。

用 python 显的太蹩脚了，这时候还不如 perl

tail -qFn0 caselog.log | perl -MJSON -nE 'say ((decode_json $_)->{type});'

ssh tunnel ?

错了还不能改。。重新发一次 :(
#!/usr/bin/perl6
# your code goes here

my \bash = Proc::Async.new: "/usr/bin/env", "bash", :w;

react {
--whenever bash.stdout.lines {
----.say;
--}
--whenever bash.start { }
--whenever IN.lines {
----bash.say("$_");
----bash.close-stdin if $_ eq "exit";
--}
}

shell 脚本就是 bash/zsh/xsh 来执行的

#!/usr/bin/perl6
# your code goes here

my \bash = Proc::Async.new: "/usr/bin/env", "bash", :w;

react {
--whenever bash.stdout.lines {
----.say;
--}
--whenever bash.start { }
--whenever IN.lines {
----bash.say("s:g/^(\s+)/{ "--" x $0.codes }/; .say");
----bash.close-stdin if s:g/^(\s+)/{ "--" x $0.codes }/; .say eq "exit";
--}
}

try it online:　 https://ideone.com/wvp1ue

解决方案：卸载 QQ

3 合一的吗？

我的 Xperia Z1 Compact 暂时没有这个问题，GPS 版本一样的

多行 多列 主流的编辑器都支持