本帖最后由 523066680 于 2017-7-22 16:13 编辑
Perl / 蜜汁语法糖
use IO::Handle;
STDOUT->autoflush(1);
use File::Slurp;
my $old = read_file("old.csv");
my $new = read_file("new.csv");
my %old = map { reverse split(",", $_) } split(/\r?\n/, $old);
my %new = map { reverse split(",", $_) } split(/\r?\n/, $new);
my %delta = map { $_, $new{$_} - $old{$_} } keys %new;
grep
{
printf "%5d %s\n", $delta{$_}, $_
}
reverse sort { $delta{$a} <=> $delta{$b} } (keys %delta); |
[Finished in 0.3s]
部分- 1049 jumia.com.ng
- 1048 yjc.ir
- 1047 nextdoor.com
- 1045 mileroticos.com
- 1037 cdninstagram.com
- 1036 imagetwist.com
- 1035 rightmove.co.uk
- ...
- ...
- -519 office365.com
- -524 rednet.cn
- -536 jrj.com.cn
- -600 patreon.com
- -610 redd.it
- -646 rumble.com
- -691 list.tmall.com
复制代码
|