perl : 패턴 일치를 기초로 한 문자열 추출

Question

파일 FILE1에는 _Pattern1 종료 패턴을 가진 수천 개의 행이 있습니다.

두 번째 파일에도 동일한 종료 패턴 _Pattern1을 가진 수천 개의 줄이 있습니다.

지금해야합니다

선이 문자열을 추출하고 변수에 저장할

• _Pattern1

  과 종료 문자열이있는 경우

• 가 알아 라인으로

• 읽기 FILE1 라인

• FILE2를 열고 라인별로 읽습니다.

단지 FILE2에서 읽은 라인이는 펄에서 수행되는 방법

위의 변수에 저장된 문자열을 포함하는 경우

는 알아?

EDIT2 :

알려줘야, 인터넷 검색 및 링크를 참조의 비트와 함께 나는 내 문제를 해결, 아래에 입대했다. 다음은 코드 스 니펫입니다.

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

my $OriginalHeader=$ARGV[0]; ## Source file 
my $GeneratedHeader=$ARGV[1];## File to compare against 
my $DeltaHeader=$ARGV[2]; ## File to store misses 

my $MatchingPattern="_Pos"; 
my $FoundPattern; 

open FILE1, $OriginalHeader or die $!; 
open FILE2, $GeneratedHeader or die $!; 
open (FILE3, ">$DeltaHeader") or die $!; 

my $lineFromOriginalHeader; 
my $lineFromGeneratedHeader; 
my $TotalMacrosExamined = 0; 
my $TotalMacrosMissed = 0; 

while($lineFromOriginalHeader=<FILE1>) 
{ 
if($lineFromOriginalHeader =~ /$MatchingPattern/) 
    { 
    my $index = index($lineFromOriginalHeader,$MatchingPattern); 

    my $BackIndex = $index; 
    my $BackIndexStart = $index; 

    $BackIndex = $BackIndex - 1; 

    ## Use this while loop to extract the substring. 
    while (1) 
    { 
     my $ExtractedChar = substr($lineFromOriginalHeader,$BackIndex,1); 
     if ($ExtractedChar =~//) 
     { 
     $FoundPattern = substr($lineFromOriginalHeader,$BackIndex + 1,$BackIndexStart + 3 - 
                       $BackIndex); 
     print "Identified $FoundPattern \n"; 
     $TotalMacrosExamined = $TotalMacrosExamined + 1; 
     ##Skip the next line 
     $lineFromOriginalHeader = <FILE1>; 
     last;  
     } 
    else 
    { 
     $BackIndex = $BackIndex - 1; 
    } 

    } ##while(1) 

## We now look for $FoundPattern in FILE2 
while ($lineFromGeneratedHeader = <FILE2>) 
{ 
    if (index($lineFromGeneratedHeader,$FoundPattern)!= -1) 
    { 
    ##Pattern found. Reset file pointer and break out of while loop 
    seek FILE2,0,0; 
    last; 
    } 
    else 
    { 
    if (eof(FILE2) == 1) 
     {   
     print FILE3 "Generated header misses $FoundPattern\n"; 
     $TotalMacrosMissed = $TotalMacrosMissed + 1; 
     seek FILE2,0,0; 
     last;  
     } 
    } 
} ##while(1) 

} 
else 
{ 
    ##NOP 
} 
} ##while (linefromoriginalheader) 

close FILE1; 
close FILE2; 
close FILE3; 
print "Total number of bitfields examined = $TotalMacrosExamined\n"; 
print "Number of macros obsolete = $TotalMacrosMissed\n"; 

Answer 1

나는 C 언어로 모든 프로그램을 프로그래밍 했으므로 아래의 perl 구문을 사용하여 인터넷 검색을하고 C 프로그램을 작성했습니다. 이것은 나를 위해 완벽하게 작동합니다. :-)

편집 : 왜 내가 아래의 알 고안에서 줄을 건너 뛰어야하는지 명확히하기 위해서입니다. 두 번째 파일에서 검색되고 나중에 검색되는 패턴은 두 개의 연속 된 행에서 발생합니다. 따라서 첫 번째 발생이 안정적으로 감지되는 것으로 충분합니다. 또한 nitpick, 항상 패턴을 포함하는 부분 문자열이 라인의 두 번째 부분 문자열임을 보장합니다.

예 : #DEFINE Something_Pos (일부 값) 코드 더 페를 리를 만들기에

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

my $OriginalHeader=$ARGV[0]; 
my $GeneratedHeader=$ARGV[1]; 
my $DeltaHeader=$ARGV[2]; 

my $MatchingPattern="_Pos"; 
my $FoundPattern; 

open FILE1, $OriginalHeader or die $!; 
open FILE2, $GeneratedHeader or die $!; 
open (FILE3, ">$DeltaHeader") or die $!; 

my $lineFromOriginalHeader; 
my $lineFromGeneratedHeader; 
my $TotalMacrosExamined = 0; 
my $TotalMacrosMissed = 0; 

while($lineFromOriginalHeader=<FILE1>) 
{ 
if($lineFromOriginalHeader =~ /$MatchingPattern/) 
{ 
    my $index = index($lineFromOriginalHeader,$MatchingPattern); 

    my $BackIndex = $index; 
    my $BackIndexStart = $index; 

    $BackIndex = $BackIndex - 1; 

    ## Use this while loop to extract the substring. 
    while (1) 
    { 
    my $ExtractedChar = substr($lineFromOriginalHeader,$BackIndex,1); 
    if ($ExtractedChar =~//) 
    { 
    $FoundPattern = substr($lineFromOriginalHeader,$BackIndex + 1,$BackIndexStart + 3 - 
                       $BackIndex); 
    print "Identified $FoundPattern \n"; 
    $TotalMacrosExamined = $TotalMacrosExamined + 1; 
    ##Skip the next line 
    $lineFromOriginalHeader = <FILE1>; 
    last;  
    } 
    else 
    { 
    $BackIndex = $BackIndex - 1; 
    } 

} ##while(1) 

## We now look for $FoundPattern in FILE2 
while ($lineFromGeneratedHeader = <FILE2>) 
{ 
##print "Read the following line from FILE2: $lineFromGeneratedHeader\n"; 

    if (index($lineFromGeneratedHeader,$FoundPattern)!= -1) 
    { 
    ##Pattern found. Close the file and break out of while loop 
    seek FILE2,0,0; 
    last; 
    } 
    else 
    { 
    if (eof(FILE2) == 1) 
     {   
     print FILE3 "Generated header misses $FoundPattern\n"; 
     $TotalMacrosMissed = $TotalMacrosMissed + 1; 
     seek FILE2,0,0; 
     last;  
     } 
    } 
} ##while(1) 

} 
else 
{ 

} 
} ##while (linefromoriginalheader) 

close FILE1; 
close FILE2; 
close FILE3; 
print "Total number of bitfields examined = $TotalMacrosExamined\n"; 
print "Number of macros obsolete = $TotalMacrosMissed\n"; 

Answer 2

그냥 첫 번째 컷. 사실 더 많이 할 수 있었는데, $some_var이 대개 Perl에서 $SomeVar과 비교하여 사용되었지만 그다지 나지 않았습니다.

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

my ($OriginalHeader, $GeneratedHeader, $DeltaHeader) = @ARGV; 
my $MatchingPattern=qr/(\S*_Pos)/; # all non-whitespace terminated by _Pos 

open my $file1, '<', $OriginalHeader or die $!; 
open my $file2, '<', $GeneratedHeader or die $!; 
open my $file3, '>', $DeltaHeader  or die $!; 

my $TotalMacrosExamined = 0; 
my $TotalMacrosMissed = 0; 

while(my $lineFromOriginalHeader=<$file1>) { 
    next unless $lineFromOriginalHeader =~ $MatchingPattern; 
    my $FoundPattern = $1; # matched string 

    print "Identified $FoundPattern \n"; 
    $TotalMacrosExamined++; 

    ##Skip the next line 
    <$file1>; 

    ## We now look for $FoundPattern in FILE2 
    my $match_found = 0; 
    while (my $lineFromGeneratedHeader = <$file2>) { 
    if (index($lineFromGeneratedHeader,$FoundPattern)!= -1) { 
     ##Pattern found. Close the file and break out of while loop 
     $match_found++; 
     last; 
    } 
    } 

    unless ($match_found) { 
    print $file3 "Generated header misses $FoundPattern\n"; 
    $TotalMacrosMissed++; 
    } 

    seek $file2,0,0; 

} 

print "Total number of bitfields examined = $TotalMacrosExamined\n"; 
print "Number of macros obsolete = $TotalMacrosMissed\n";