会python真的可以为所欲为0(回)
28天前
这里还有人吗1(回)
213天前这里还有人吗0(回)
213天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
438天前到处都是羊，不想上班0(回)
518天前
鸽子
0(回)
522天前用于文件比较。
实现类似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) 回复
？？
回复评论