特定の文字列を見つけるときに最も近い列を印刷する方法

Question 1

探しているさまざまな文字列を含むファイルがあるとします。このような：

fck=35 fmd
fck=78 fcv
bnv=12 fcv

これらのそれぞれについてファイルを検索し、行がパターンと一致する場合は、文字列の後のfmd最初の値と一致する必要があります。もしそうなら、Perlで次のようにします。

#!/usr/bin/env perl

## Open the list of search patterns.
## The script expects it to be the 1st argument.
open(my $list,"$ARGV[0]");
## Read the file and save the patterns
## in the %pat hash.
while (<$list>) {
    ## remove trailing newlines
    chomp;
    ## separate the search pattern from the target
    my @fields=split(/\s+/);

    ## Save the search pattern and accompanying target in
    ## in the hash (%pats). 
    $pats{$fields[0]}=$fields[1];
}

## Open the list of search patterns.
## The script expects it to be the 2nd argument.
open(my $file,"$ARGV[1]");

## Read the file
while (<$file>) {
    ## split the line on ';' into the @fields array
    my @fields=split(/;/);

    ## This is the string that will be printed for
    ## the current line.
    my $outstring="";
    ## Check each of the search patterns against
    ## each of the fields.
    foreach my $pat(keys(%pats)) {
        ## Add the pattern to the outstring
        $outstring.="$pat;";
        ## save all all 1st fmd values that follow
        ## this pattern. 
        my @matches= ( /$pat.+?($pats{$pat}=[^;]+)/g );
        ## Add this pattern's matches to the output string.
        $outstring.= join(";",@matches) . ";";
    }
    ## Print the output string for this line
    print "$outstring\n";
}

たとえば、上記のスクリプトをparser.plファイルに保存し$PATHて実行可能にしたら、chmod 755 ~/bin/parser.pl次のように実行できます。

$ parser.pl list.txt file.txt 
bnv=12;;fck=35;fmd=1422745568,;fck=78;;
bnv=12;;fck=35;fmd=1421428238,;fck=78;;
bnv=12;;fck=35;fmd=1421687191 fmd=1111111111;fck=78;fcv=de724a544277d79c14d19809fe51ab71;

Answer

探しているさまざまな文字列を含むファイルがあるとします。このような：

fck=35 fmd
fck=78 fcv
bnv=12 fcv

これらのそれぞれについてファイルを検索し、行がパターンと一致する場合は、文字列の後のfmd最初の値と一致する必要があります。もしそうなら、Perlで次のようにします。

#!/usr/bin/env perl

## Open the list of search patterns.
## The script expects it to be the 1st argument.
open(my $list,"$ARGV[0]");
## Read the file and save the patterns
## in the %pat hash.
while (<$list>) {
    ## remove trailing newlines
    chomp;
    ## separate the search pattern from the target
    my @fields=split(/\s+/);

    ## Save the search pattern and accompanying target in
    ## in the hash (%pats). 
    $pats{$fields[0]}=$fields[1];
}

## Open the list of search patterns.
## The script expects it to be the 2nd argument.
open(my $file,"$ARGV[1]");

## Read the file
while (<$file>) {
    ## split the line on ';' into the @fields array
    my @fields=split(/;/);

    ## This is the string that will be printed for
    ## the current line.
    my $outstring="";
    ## Check each of the search patterns against
    ## each of the fields.
    foreach my $pat(keys(%pats)) {
        ## Add the pattern to the outstring
        $outstring.="$pat;";
        ## save all all 1st fmd values that follow
        ## this pattern. 
        my @matches= ( /$pat.+?($pats{$pat}=[^;]+)/g );
        ## Add this pattern's matches to the output string.
        $outstring.= join(";",@matches) . ";";
    }
    ## Print the output string for this line
    print "$outstring\n";
}

たとえば、上記のスクリプトをparser.plファイルに保存し$PATHて実行可能にしたら、chmod 755 ~/bin/parser.pl次のように実行できます。

$ parser.pl list.txt file.txt 
bnv=12;;fck=35;fmd=1422745568,;fck=78;;
bnv=12;;fck=35;fmd=1421428238,;fck=78;;
bnv=12;;fck=35;fmd=1421687191 fmd=1111111111;fck=78;fcv=de724a544277d79c14d19809fe51ab71;

Question 2

最も近い列を探していて、区切り文字を知っている場合は、grepとsedを使用すると簡単な作業になります。

grep -e "fck=35"

fck=35 が点灯している行全体を返します。その後、これを2つのsedにパイプして必要なものを入手してください。

grep -e "fck=35" | sed s/.*fck=35;//g | sed s/;.*//g

最初のsedはfck = 35; fck = 35;前のすべての項目を置き換え（削除）、2番目のsedは次の区切り文字の後のすべての項目を削除します。

しかし、次のようなものが必要なので、行（fmd）で特定の列を選択することもできます。

grep -e "fck=35" | sed s/.*fmd=/fmd=/g | sed s/[;,].*//g

これにより、「fmd =」の前のすべての内容が削除され、次の区切り文字（またはコンマ、処理する必要があるようです）の後のすべての内容が削除されます。

Answer