[問題] Algorithm::Diff的使用
想請教一下，我使用了diff function，但是我不知要如何取得如網頁上的範例結果。
我試了print @diffs or $diffs都是回傳給我記憶體位址。先謝謝大家的幫忙。
(抱歉我還是個新手…)
下列是我的程式碼：
#!/usr/local/bin/perl -w
use Algorithm::Diff qw(diff sdiff LCS traverse_sequences traverse_balanced);
@str1 = split(//,"abcehjlmnp");
@str2 = split(//,"bcdefjklmrst");
@lcs = LCS(\@str1, \@str2);
@diff = diff(\@str1, \@str2);
print "LCS : @lcs\n";
print "Diff: @diff\n";
回傳結果：
LCS : b c e j l m
Diff: ARRAY(0x8230ac8) ARRAY(0x8230b34) ARRAY(0x8230c48) ARRAY(0x8230cb4)
ARRAY(0x8230d2c)
想要的結果：(如網頁上的範例結果)
[
[ [ '-', 0, 'a' ] ],
[ [ '+', 2, 'd' ] ],
[ [ '-', 4, 'h' ] ,
[ '+', 4, 'f' ] ],
[ [ '+', 6, 'k' ] ],
[ [ '-', 8, 'n' ],
[ '-', 9, 'p' ],
[ '+', 9, 'r' ],
[ '+', 10, 's' ],
[ '+', 11, 't' ],
]
]
參考網頁：
http://search.cpan.org/~nedkonz/Algorithm-Diff-1.15/lib/Algorithm/Diff.pm#diff
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.118.155.17
※ 編輯: marsline 來自: 140.118.155.17 (03/11 16:10)
討論串 (同標題文章)
完整討論串 (本文為第 1 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
