AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前用于文件比较。
实现类似unix command diff的功能。
#!/usr/bin/perl
use Algorithm::Diff qw ( diff );
die ( "Usage: $0 file1 file2\n" ) if @ARGV != 2;
my ( $file1, $file2 ) = @ARGV;
-T $file1 or die ( "$file1: binary\n" );
-T $file2 or die ( "$file2: binary\n" );
@f1 = `cat $file1 `;
@f2 = `cat $file2 `;
$diffs = diff ( @f1, @f2 );
foreach $chunk ( @$diffs )
{
foreach $line ( @$chunk )
{
my ( $sign, $lineno, $text ) = @$line;
printf "$sign%d %s", $lineno+1, $text;
}
print "--------\n";
}
by: 发表于：2017-09-11 11:51:08 顶(0) | 踩(0) 回复
？？
回复评论