passende zwei Zeichen mit mehreren Zeilen dazwischen

Question

Ich bin neu in Regex und ich benutze Perl.

Ich habe unten tag:

<CFSC>cfsc_service=TRUE 
SEC=1 
licenses=10 
expires=20170511 
</CFSC> 

ich etwas zwischen <CFSC> und </CFSC> Tags übereinstimmen soll.

Ich versuchte /<CFSC>.*?\n.*?\n.*?\n.*?\n<\/CFSC>/ und /<CFSC>(.*)<\/CFSC>/ aber hatte kein Glück.

Answer 1

Sie benötigen die /ssingle line modifier die Regex-Engine umfassen Zeilenumbrüche in . zu machen.

Behandle Zeichenfolge als einzelne Zeile. Das heißt, ändern "." um jedem beliebigen Charakter zu entsprechen, sogar einem Zeilenumbruch, der normalerweise nicht zusammenpassen würde.

Siehe dieses Beispiel.

my $foo = qq{<CFSC>cfsc_service=TRUE 
SEC=1 
licenses=10 
expires=20170511 
</CFSC>}; 

$foo =~ m{>(.*)</CFSC>}s; 

print $1; 

Sie müssen auch ein anderes Trennzeichen als / verwenden, oder es zu entkommen.

Answer 2

Versuchen

/<CFSC>(.*)<\/CFSC>/s 

Der letzte s die . Spiel Newline Zeichen macht (\n = 0x0a), die in der Regel ist nicht übereinstimmt:

Treat String als einzelne Zeile. Das heißt, ändern "." passend zu jedem Zeichen , auch eine Newline, die normalerweise nicht übereinstimmen würde.

von http://perldoc.perl.org/perlre.html#Modifiers

Answer 3

Versuchen Sie folgendes:

$foo =~ m/<CFSC>((?:(?!<\/CFSC>).)*)<\/CFSC>/gs; 

Modifikatoren:

 g - Matches global 
     s - newline 
     i - case sensitive 
     \ - escape sequence