AI时代，找源码已成为过去式，纪念我过去的十年0(回)
92天前
还有人吗2(回)
110天前会python真的可以为所欲为0(回)
590天前
这里还有人吗2(回)
775天前这里还有人吗0(回)
775天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
1000天前用于数组比较。
本例实现类似shell command - diff的功能。
如果我们要比较的不是文件，而是比如系统信息，远程文件列表，数据库内容变化等，这个模块会给我们提供方便灵活的操作。
QUOTE:
#!/usr/bin/perl
use Array::Compare;
$comp = Array::Compare->new ( WhiteSpace => 1 );
$cmd = "top -n1 | head -4";
@a1 = `$cmd`;
@a2 = `$cmd`;
@result = $comp->full_compare ( @a1, @a2 );
foreach ( @result )
{
print $_ + 1, "th line:\n";
print "> $a1[$_]> $a2[$_]";
print "-----\n";
}
exit 0;
by: 发表于：2017-09-12 14:53:49 顶(0) | 踩(0) 回复
？？
回复评论