perl Tk::DiffText
时间：2007-12-28 来源：lonelyair
Windows 下看diff文件,呵呵,之前不可能吧,而且也麻烦.
看看Tk::DiffText就容易多了,而且也清晰.
跟svn diff 出来的感觉一样.
看图: 附件
500)this.width=500;" border=0>
效果不错哦.慢慢发现吧....
|
#!/usr/bin/perl use Tk; use Tk::DiffText; my ($file0, $file1) = ("tk_diff.pl", "tk_diff.pl"); my $mw = MainWindow->new; my $w = $mw->DiffText()->pack(); $w->diff($file0, $file1, -case => 0); MainLoop; |
相关阅读 更多 +
排行榜 更多 +
