Wie kann ich den gesamten Text vor der Übereinstimmung in einer Perl-Ersetzung ersetzen?

Question

Ich lese jede Zeile einer Eingabedatei (IN) und drucke die gelesene Zeile in eine Ausgabedatei (OUT), wenn die Zeile mit einem der Muster beginnt, sagen wir "ab", "cd", "ef", " gh "," ij "usw. Die gedruckte Zeile hat die Form" Muster: 100 "oder Form" Muster: 100: 200 ". Ich muss "Muster" durch "myPattern" ersetzen, d. H. Die aktuelle Zeile in FILE drucken, aber den gesamten Text vor dem ersten Vorkommen von ":" durch "myPattern" ersetzen. Was ist der beste Weg, dies zu tun?

Zur Zeit habe ich:

while (<IN>) 
{ 
    print FILE if /^ab:|^bc:|^ef:|^gh:/; 
} 

Ich bin nicht sicher, wenn substr Ersatz als „Muster“ helfen würde, kann entweder „ab“ oder „CD“ oder „ef“ oder „gh“ usw.

sein

Danke! Bi

Answer 1

sub replacer { 

    $line = shift; 
    $find = shift; 
    $replace = shift; 

    $line =~ /([^:]+):/ 
    if ($1 =~ /$find/) { 
     $line =~ s/([^:]+):/$replace/ ; 
     return $line;  
    } 
    return ; 

} 

while (<IN>) 
{ 
    print OUT replacer ($_,"mean","variance"); 
    print OUT replacer ($_,"pattern","newPattern"); 
} 

Meine Perl ein wenig rostig ist, so Syntax möglicherweise nicht genau sein.

bearbeiten: Setzen Sie es in eine Funktion für Sie.

Answer 2

while (<IN>) 
{ 
    s/^pattern:/myPattern:/; 
    print OUT 
} 

Answer 3

Perl Substitution Operator standardmäßig (a) verwendet das erste Spiel, (b) ersetzt nur ein Spiel und (c) liefert true, wenn ein Ersatz gemacht und falsch, wenn es nicht ist.

So:

while (<IN>) 
{ 
    if (s/<pattern1>:/<replace1>/ || 
     s/<pattern2>:/<replace2>/) { 
     print FILE; 
    } 
} 

Sollte für Sie arbeiten. Beachten Sie, dass aufgrund von Kurzschlüssen nur eine Ersetzung vorgenommen wird.

Answer 4

Dies könnte das sein, was Sie wollen:

$expr = "^(ab)|(cd)|(ef)|(gh)|(ij)"; 
while (<IN>) 
{ 
    if (/$expr:/) 
    { 
     s/$expr/$myPattern/; 
     print FILE; 
    } 
} 

Answer 5

Der kürzeste Weg, um das zu tun, was Sie oben fragen, besteht darin, Ihren Code wiederzuverwenden, aber eine Ersetzung einzuschließen.

while (<IN>) 
{ 
    print FILE if s/^(ab|bc|ef|gh):/MyPattern:/; 
} 

Alle Muster auf der linken Seite werden ersetzt. Wenn die linke Seite nicht übereinstimmt, wird nichts gedruckt.

Answer 6

generisch, tun dies wie:

my %subst = ('ab' => 'newab', 'bc' => 'newbc', 'xy' => 'newxy'); 
my $regex = join('|', map quotemeta, sort { length($b) <=> length($a) } keys %subst); 
$regex = qr/^($regex):/; 

while (<IN>) { 
    print FILE if s/$regex/$subst{$1}:/; 
} 

Die Art stellt die längsten erste, so dass, wenn die Daten ab hat :: und beide ab und ab: substituiert werden, ab: wird verwendet, statt ab.