Greetz#!/usr/bin/perl use Algorithm::Diff qw(diff LCS); use strict; my @seq1 = ("A".."N"); my @seq2 = ("F".."Z"); my @diff = (); my @lcs = (); if (@diff = diff( \@seq1, \@seq2 )) { } # Not equal # Same for (@lcs = diff( \@seq1, \@seq2 ))
In reply to Re: Comparing two files
by Beatnik
in thread Comparing two files
by ram
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |