#!/usr/bin/perl print "content-type: text/html \n\n"; open MYINPUTFILE, "<projecta.txt"; my $holdTerminator = $/; undef $/; my $projectA = <MYINPUTFILE>; $/ = $holdTerminator; my @lines = split /$holdTerminator/, $projectA; $projectA = "init"; $projectA = join $holdTerminator, @lines; print $projectA; print "\n"; open MYINPUTFILEE, "<projectb.txt"; my $holdTerminator1 = $/; undef $/; my $projectB = <MYINPUTFILEE>; $/ = $holdTerminator1; my @lines = split /$holdTerminator1/, $projectB; $projectB = "init"; $projectB = join $holdTerminator1, @lines; print $projectB; print "\n"; $MatchCount = 0; @sentencesA = split(/\./, $projectA); print @sentencesA; @sentencesB = split(/\./, $projectB); print "\n"; print @sentencesB; $arrLenA = scalar @sentencesA; print $arrLenA; print "\n"; $arrLenB = scalar @sentencesB; print $arrLenB; print "\n"; for ($z=0;$z<=$arrLenA;$z++){ for ($i=0;$i<=$arrLenB;$i++){ if ($sentencesA[$z] eq $sentencesB[$i]){ $MatchCount++; } } } print $MatchCount; close(MYINPUTFILE); close(MYINPUTFILEE);
In reply to Re^2: Comparing 2 arrays too find the total number of identical elements.
by barrymcv
in thread Comparing 2 arrays too find the total number of identical elements.
by barrymcv
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |