note
karlgoethebier
<code>
#!/usr/bin/perl
use strict;
use warnings;
use Set::Scalar;
# use Data::Dumper;
my @str1= qw(Poet Blake had a milky white cat He used to call it Pussy);
my @str2 = qw(Poet Blake had a white cat and used to call it Pussy);
my $s1= Set::Scalar->new(@str1);
my $s2 = Set::Scalar->new(@str2);
my $result = $s1*$s2;
print $result;
__END__
(Blake Poet Pussy a call cat had it to used white)
</code>
<p>See [cpan://Set::Scalar]</p>
<p>Perhaps this helps. Best regards, Karl</p>
<p><b>Update:</b> You wrote you are a teacher. So i think you can do the math by yourself ;-)</p><p> Regards, Karl, Earl of <a href="http://de.guttenplag.wikia.com/wiki/GuttenPlag_Wiki">GuttenPlag</a>.</p> <p> P.S.: And [man://diff] might be a weapon too...</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-1001958">
<p>«The Crux of the Biscuit is the Apostrophe»</p>
</div></div>
1009885
1009885