大佬教程收集整理的这篇文章主要介绍了如何使用Perl来确定两个文件的内容是否相同?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
鉴于文本处理是Perl的堡垒,应该很容易比较两个文件并确定它们是否相同(代码未经测试).
use Strict; use warnings; sub files_match { my ( $fileA,$fileB ) = @_; open my $file1,'<',$fileA; open my $file2,$fileB; while (my $lineA = <$file1>) { next if $lineA eq <$file2>; return 0 and last; } return 1; }
我想到的唯一方法(没有CPAN模块)是打开这两个文件,并逐行阅读,直到找到一个差异.如果没有发现差异,文件必须相同.
但这种做法有限而且笨拙.如果两个文件的总行不一致怎么办?我应该打开和关闭确定行数,然后重新打开扫描文本?呸.
我没有看到任何与perlfaq5有关的事情.我想远离模块,除非它们带有Perl 5.6.1核心的核心.
以上是大佬教程为你收集整理的如何使用Perl来确定两个文件的内容是否相同?全部内容,希望文章能够帮你解决如何使用Perl来确定两个文件的内容是否相同?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。