Regex, um eine Kombination von Konstante und Muster zu erhalten

Question

Ich arbeite an einer Regex, die mir helfen kann, ein Muster in einer Zeichenfolge zu ersetzen.

Die Zeichenfolge, die ich im Stream habe, ist sehr lang und nach dem Anwenden der Regex (Finde das Muster und dann durch konstanten Wert ersetzen) muss ich die Zeichenfolge in meinem ETL-Stream weiterleiten.

To find: 
<customer attribute="any number"> 
like <customer attribute="1"> 
and replace with: 
<customer>. (basically just keep "customer" and delete everything) 

Ich bin neu in Regex und lerne es.

Irgendwelche Hilfe !!

Answer 1

Input:

<consumer attribute=\"1\"><birth-date>1990-07-23</birth-date> </consumer>;

my $element_name = "consumer"; 

my $str = "<consumer attribute=\"1\"><birth-date>1990-07-23</birth-date> </consumer>"; 

$str=~s/<($element_name)[^>]*attribute="[^\"]*"[^>]*>/<$1>/g; 

print $str; 

output:

<consumer><birth-date>1990-07-23</birth-date> </consumer>

Answer 2

Bitte bitte bitte. Don't use regular expressions to parse XML.

Es sind schlechte Nachrichten. Es ist spröde und hacky, und am wichtigsten von allem - völlig unnötig.

Reguläre Ausdrücke behandeln keinen Kontext. Und bei XML dreht sich alles um den Kontext.

XML hat bereits eine Abfragesprache namens xpath, die viel besser geeignet ist.

Hier ist ein Beispiel für finden einen Knoten mit xpath.

#!/usr/bin/env perl 

use strict; 
use warnings; 
use XML::Twig; 

my $twig = XML::Twig -> new -> parsefile ('yourfile.xml'); 

print $twig -> get_xpath('//consumer', 0) -> att('attribute'),"\n"; 

Aber wenn man sie verändern und löschen möchten attribute:

$_ -> del_att('attribute') for $twig -> get_xpath('//consumer[@attribute]'); 
$twig -> set_pretty_print('indented_a'); 
$twig -> print; 

ich aber fragen würde - warum versuchen Sie, das zu tun? Es klingt wie ein weiterer kaputter Prozess irgendwo - vielleicht versucht ein anderes Skript, das XML zu regex?

Aber die andere Sache, die XML::Twig nicht wirklich gut ist es twig_handlers hat, die Sie XML mehr behandeln lassen ordentlich Ströme (zB ohne sie alle in den Speicher zu analysieren, um

Das ist ein bisschen wie das geht.

#!/usr/bin/env perl 

use strict; 
use warnings; 
use XML::Twig; 

sub delete_unwanted { 
    my ($twig, $element) = @_; 
    $element -> del_att('attribute'); 
    #dump progress so far 'out'. 
    $twig -> flush; 
    #free memory already processed. 
    $twig -> purge; 
} 

my $twig = XML::Twig -> new (twig_handlers => { '//consumer[@attribute]' => \&delete_unwanted }); 
    $twig -> parsefile ('your_xml.xml'); 

Wir setzen einen Handler, so dass jedes Mal, wenn der Parser eine consumer mit einem attribute Attribut trifft. (Bad Name, der) es löscht sie, flush es (prints) der analysierten XML und spült es aus dem Speicher. Dies macht es sehr speicher effizient, da Sie nicht das ganze Ding in den Speicher lesen, und kann so ziemlich inline regexing Typ Operationen.