0

私はこのようなファイルを持っています：

a_12_3_5- k_3_4_6-a_12_3_5-
q_1_5_7_9- q_1_5_7_9-
a_9_4_5-c_3_4_6- c_3_4_6-r_4_5_7-
b_1_1_3- v_1_5_7-
d_12_4_5-e_4_5_6- g_5_6_7-d_6_8_6-
b_1_1_7-f_3_8_7_8-d_4_1_4- d_4_1_5-b_1_1_7-f_3_8_3
b_1_1_7-f_3_8_7_8-d_4_1_4- e_3_3_1-f_3_8_7-f_21_3_1-b_1_1_7-a_1_1_1-

これはスペースで区切られたファイルです。スペースの前後に表示される文字列は、b_1_1_3-、k_3_4_6-、b_12_4_5-などの小さなサブ文字列で構成されています。スペースの左側に表示される文字列に含まれる小さなサブ文字列の数を確認する必要があります。スペースの右側。例：1行目には、右側の文字列に存在するサブ文字列a_12_3_5-があります。2行目は、右側と完全に一致していることを示しています。ただし、3行目は、右側の文字列に含まれているサブ文字列（c_3_4_6-）が左側に1つしかないことを示しています。4行目と5行目は、右側の文字列に左側の部分文字列が含まれていない場合を表しています。次の行は、右側の文字列に含まれているサブ文字列（b_1_1_7-）が1つしかないことを示しています。最後の行は、右側の文字列に含まれている2つのサブ文字列b_1_1_7-とf_3_8_7-があることを示しています。したがって、効果的に、左側のサブストリングが右側のストリングにいくつ含まれているかを確認したいと思います。ファイルの各行に、左側の部分文字列の数、右側の部分文字列の数、左側の部分文字列の数の3つの数値が追加されるように、次の方法で出力を取得しようとしています。右側。

a_12_3_5- k_3_4_6-a_12_3_5- 1 2 1 
q_1_5_7_9- q_1_5_7_9- 1 1 1
a_9_4_5-c_3_4_6- c_3_4_6-r_4_5_7- 2 2 1
b_1_1_3- v_1_5_7- 1 1 0
d_12_4_5-e_4_5_6- g_5_6_7-d_6_8_6- 2 2 0
b_1_1_7-f_3_8_7_8-d_4_1_4- d_4_1_5-b_1_1_7-f_3_8_3- 3 3 1
b_1_1_7-f_3_8_7_8-d_4_1_4- e_3_3_1-f_3_8_7-f_21_3_1-b_1_1_7-a_1_1_1- 3 5 2

私はこれまで上記の出力を得ることができましたが、行の最後の部分まで到達できないようです。私はperlposとindex関数を使ってみました。助けてください。

4

1 に答える 1

0

このperlコードを試してください。

#!/usr/bin/perl
use warnings;
use strict;

while ( <DATA> ) {
    my $line = $_;
    chomp $line;
    my ( $left, $right ) = split / /, $line;
    #print "$left\n\t$right\n";
    my @lefts = split /-/, $left;
    my @rights = split /-/, $right;
    my $total = 0;
    foreach ( @rights ) {
        $total++ if $left =~ /$_/;
    }
    print $line, " ", scalar @lefts, " ", scalar @rights, " ", $total, "\n";
}

__DATA__
a_12_3_5- k_3_4_6-a_12_3_5-
q_1_5_7_9- q_1_5_7_9-
a_9_4_5-c_3_4_6- c_3_4_6-r_4_5_7-
b_1_1_3- v_1_5_7-
d_12_4_5-e_4_5_6- g_5_6_7-d_6_8_6-
b_1_1_7-f_3_8_7_8-d_4_1_4- d_4_1_5-b_1_1_7-f_3_8_3
b_1_1_7-f_3_8_7_8-d_4_1_4- e_3_3_1-f_3_8_7-f_21_3_1-b_1_1_7-a_1_1_1-
于 2012-10-08T06:45:59.127 に答える