Question

我想比较两个2D数组中的字符串，但是大小不一样。因此，我想移动一个数组中的元素以与另一个数组中的所有元素匹配，但是我对循环应该如何一无所知。

这是我第一次使用perl语言。我以前学过C语言。

#!/usr/intel/pkgs/perl/5.14.1/bin/perl

use Data::Dumper qw(Dumper);

@clk = (
'prescc_ux_aux_clk',
'prescc_ux_prim_clk',
'usb2_phy_side_clk',
'usb3_phy_side_clk',
'ux_prim_clk',
'ux_side_clk',
'ux_xtal_frm_refclk',
'uxd_aux_clk',
'uxd_pgcb_clk',
'uxd_prescc_aux_clk',
'uxd_prim_clk',
'uxd_side_clk',
'uxd_suspend_clk');

@clkack = (
'ccu_ux_xtal_frm_refclk_ack',
'ibbs_ux_prim_clkack',
'sbr_ux_side_clkack',
'uxd_aux_clkack',
'uxd_pgcb_clkack',
'uxd_prim_clkack',
'uxd_side_clkack');



foreach(@clk){
    @clkline = map {[split /_/,$_]} @clk;
    }
foreach(@clkack){
    @clkackline = map{[split /_/,$_]} @clkack;
    }

#print Dumper @clkline;

$match = 0;

$clkack_row = @clkackline; #no. of row in clkackline
$clk_row = @clkline;

for ($i=0; $i<$clkack_row; $i++){
    $clkackcolumn = @{$clkackline[$i]};

    for ($j=0; $j<$clkackcolumn; $j++){

        for ($m=0; $m<$clk_row; $m++){
            $clkcolumn = @{$clkline[$m]};

            for ($n=0; $n<$clkcolumn; $n++){
                if ($clkline[$i][$j] eq $clkacline[$m][$n]){
                    $match = $match + 1;
                    print "$match\n";
                }
            }
        }
    }
}

我希望它循环@clkackline数组，并将其与@clkline数组进行比较。如果匹配，它将给出其匹配的数量，因此是$ match变量。

编辑：

我需要将其除以'_'，以便可以将元素除以另一个数组中的单词。例如：

$clk[0] = ux_prim_clk will result in;
$clkline[0][0] = ux,  $clkline[0][1] = prim, $clkline[0][2] = clk.

然后，我需要逐个比较@clkackline数组，但要按顺序进行比较。例如：

$clkline[0][0] = $clkackline[0][0], 
$clkline[0][1] = $clkackline[0][1], 
$clkline[0][2] = $clkackline[0][2].

但是另一个问题是我需要将@clkline与clkackline中的所有元素进行比较。但是由于大小会受到限制，因此我需要将@clkackline移至与@clkline匹配，反之亦然。

例如：第一次检查：

$clkline[1][0] = $clkackline[0][0], 
$clkline[1][1] = $clkackline[0][1], 
$clkline[1][2] = $clkackline[0][2].

第二次检查：

$clkline[1][0] = $clkackline[0][1], 
$clkline[1][1] = $clkackline[0][2], 
$clkline[1][2] = $clkackline[0][3].

这当然只是一个示例，但是您可以看到我需要它来删除$ clkackline [0]中的第一列。

然后，我需要计算匹配的百分比。

例如：

ux_prim_clk vs  uxd_prim_clkack will return 33.33%.

然后将匹配度最高的元素存储在另一个数组中（例如：@clknew）

Answer 1

我认为您可能使问题变得过于复杂，要回答比较两个列表的原始问题，我有一个脚本可以比较两个列表，并告诉您每个列表中不存在什么。如果您确实需要这个仪器，请告诉我，我们可以对其进行更改以适合您的使用。与Perl中的几乎所有内容一样，可能会有一个模块可以为您完成所有这些工作。

#!/usr/bin/env perl

use strict;
use warnings;
use List::Util qw(any);

my @list1 = ('prescc_ux_aux_clk',
'prescc_ux_prim_clk',
'usb2_phy_side_clk',
'usb3_phy_side_clk',
'ux_prim_clk',
'ux_side_clk',
'ux_xtal_frm_refclk',
'uxd_aux_clk',
'uxd_pgcb_clk',
'uxd_prescc_aux_clk',
'uxd_prim_clk',
'uxd_side_clk',
'uxd_suspend_clk'
);

my @list2 = ('ccu_ux_xtal_frm_refclk_ack',
'ibbs_ux_prim_clkack',
'sbr_ux_side_clkack',
'uxd_aux_clkack',
'uxd_pgcb_clkack',
'uxd_prim_clkack',
'uxd_side_clkack'
);

print "\n==== LIST 1 TO LIST 2 COMPARISON, Does not exist in list 2 ====\n";
foreach my $first (@list1) { 
    if ( any { $_ eq $first} @list2) { next; }
        else { print $first . "\n"; }
}

print "\n==== LIST 2 TO LIST 1 COMPARISON, Does not exist in list 1 ====\n";
foreach my $first (@list2) { 
    if ( any {$_ eq $first} @list1) { next; }
        else { print $first . "\n"; }
}

比较两个2D数组以匹配字符串

1 个答案: