Okay, that does work! I can't believe I missed that. That is my life with reading documentation though.
So now my question is, how do I make those variables instead of just plain text?
#!/usr/bin/perl -w
use strict;
use Text::ParagraphDiff;
my $old = 'this is the oooooooold textt';
my $new = 'this is the new text';
print text_diff(["$old"], ["$new"]);
This doesn't work and gives you a bunch of errors:
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 197.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 125.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 125.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 258.
Use of uninitialized value in string eq at /Library/Perl/5.8.1/Text/Pa
+ragraphDiff.pm line 258.
Use of uninitialized value in concatenation (.) or string at /Library/
+Perl/5.8.1/Text/ParagraphDiff.pm line 265.
There must be a way to do that because I am afraid that some of my text might break that because some of it is 20 pages long and has all sorts of paragraphs, breaks, etc.
THANKS! |