Please write a? Perl script to address m'y following request:
I have a string of alphabet a, b, c, d, e as input and they are ordered differently in different dataset, or some elements are missing in some dataset:
data1 : a, b, c, d, e
data2: a, c, e, d
data3: b, c, d, a
data4: e, d, c, b, a
I want perl code to produce a 5x5 matrix to tell pairwise relationship between a, b, c, d, e. For example, for b in data1, it scores 9, 10, 9, 8, 7 with a, b, c, d, e, respectively. i.e. the closer the higer the score is. so data2, 3, 4 are scored in the same way.finally, the 5x5 matrix to tell pairwise relationship of a,b,c,d,e shall sum the scores calculated in data1,2,3,4.
#!/usr/bin/perl
use strict;
use warnings;
# Initialize the data
my @data = (
? ? [qw/a b c d e/],
? ? [qw/b a c e d/],
? ? [qw/b c d a/],
? ? [qw/e d c b a/]
);
# Initialize the array for the score
my @score;
# Loop through each data array
foreach my $data (@data) {
? ? # Initialize the score for each letter
? ? my %letters;
? ? foreach my $letter (@$data) {
? ? ? ? $letters{$letter} = 0;
? ? }
? ?
? ? # Loop through each letter
? ? for (my $i=0; $i < scalar @$data; $i++) {
? ? ? ? my $letter = $data->[$i];
? ? ? ?
? ? ? ? # Loop through comparison letters
? ? ? ? for (my $j=$i+1; $j < scalar @$data; $j++) {
? ? ? ? ? ? my $compare = $data->[$j];
? ? ? ? ? ? $letters{$letter} += scalar @$data - $j;
? ? ? ? ? ? $letters{$compare} += scalar @$data - $j;
? ? ? ? }
? ? }
? ?
? ? # Add the score of each letter to the score array
? ? push @score, [values %letters];
}
# Sum the total of each letter
my @total;
foreach my $row (@score) {
? ? for (my $i=0; $i < scalar @$row; $i++) {
? ? ? ? $total[$i] += $row->[$i];
? ? }
}
# Add the total of each letter to the score array
push @score, \@total;
# Print out the score matrix
foreach my $row (@score) {
? ? foreach my $score (@$row) {
? ? ? ? print "$score\t";
? ? }
? ? print "\n";
}
#
#!/usr/bin/perl
use strict;
use warnings;
#Define the data
my @data1 = qw/a b c d e/;
my @data2 = qw/a c e d/;
my @data3 = qw/b c d a/;
my @data4 = qw/e d c b a/;
# Initialize the matrix
my %matrix;
foreach my $x (@data1) {
? ? foreach my $y (@data1) {
? ? ? ? $matrix{$x}{$y} = 0;
? ? }
}
# Calculate scores for each dataset
foreach my $list (\@data1, \@data2, \@data3, \@data4) {
? ? my $score = 10;
? ? foreach my $i (0..(scalar @$list-2)) {
? ? ? ? foreach my $j ($i..(scalar @$list-1)) {
? ? ? ? ? ? $matrix{$list->[$i]}{$list->[$j]} += $score;
? ? ? ? ? ? $matrix{$list->[$j]}{$list->[$i]} += $score;
? ? ? ? ? ? $score--;
? ? ? ? }
? ? }
}
#Print the matrix
foreach my $x (sort keys %matrix) {
? ? print "$x\t";
? ? foreach my $y (sort keys %{$matrix{$x}}) {
? ? ? ? print "$matrix{$x}{$y}\t";
? ? }
? ? print "\n";
}
