특정 문자열을 찾을 때 가장 가까운 열을 인쇄하는 방법

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가 켜져 있는 전체 행을 반환합니다. 그런 다음 이것을 두 개의 sed로 파이프하여 원하는 것을 얻으십시오.

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

첫 번째 sed는 fck=35; fck=35; 이전의 모든 항목을 대체하고(제거) 두 번째 sed는 다음 구분 기호 이후의 모든 항목을 삭제합니다.

그러나 다음과 같은 것이 더 필요하기 때문에 라인(fmd)에서 특정 열을 선택할 수도 있기를 원하는 것 같습니다.

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

이렇게 하면 "fmd=" 앞의 모든 내용이 제거되고 다음 구분 기호(또는 쉼표, 처리해야 할 것 같습니다) 뒤의 모든 내용이 제거됩니다.

Answer