|CC:||<barries [...] slaysys.com>, <tyemq [...] cpan.org>, "Eschner, Brian" <Brian.Eschner [...] Honeywell.com>|
|Subject:||Enhanced code for Perl DIFF.pl program to include -i -w switches|
|Date:||Mon, 1 Aug 2011 12:47:12 -0400|
|To:||<bug-Algorithm-Diff [...] rt.cpan.org>|
|From:||"Eschner, Brian" <Brian.Eschner [...] Honeywell.com>|
Tye: Thanks for creating Algorithm-Diff. I'm playing with it to create a program to compare multiple files. I'm glad I found the diffnew.pl program which emulates the UNIX diff command. (Oh, how I miss working on a UNIX box...) But now I can use this diffnew.pl program on my PC to compare files. However, I wanted to compare the files but ignore differences due to Case and/or White-Space, so I modified the diffnew.pl program. Please consider the revised program (attached) for inclusion in the next release of the Algorithm-Diff module. The simple changes I've made to add the -i and -w switches are: * Update the "Usage" section (including adding the missing -q on the Usage: line) * Declare 2 new OPTion flags: $opt_i and $opt_w * Declare a new $compareRoutineRef variable to optionally point to the compareRoutine() function (defaults to undef) * Look for the new -i and -w switches, setting the $compareRoutineRef variable if found * Pass the $compareRoutineRef variable to the diff function * Add a line to print "Comparing files: $file1 & $file2..." [This part can be removed if it would hurt existing functionality] * Declare the compareRoutine() function to modify the text to ignore white-space and/or change case to UpperCase as desired I would be interested in hearing your response to my enhancements. Many Thanks! Brian D. Eschner Reliability Engineer Reliability & Maintainability Engineering HTSI - Central Engineering 1110 Bayfield Dr. Colorado Springs, CO 80906 Phone (719) 955-5772 Brian.Eschner@Honeywell.com <mailto:Brian.Eschner@Honeywell.com>
Message body is not shown because sender requested not to inline it.