Ersetze mehrere Hexadezimalwerte

Question

Ich habe das folgende Skript geschrieben, weil ich in einigen Dateien etwas aufräumen muss. Ich habe eine bestimmte Anzahl von Hex-Zeichen, die in eine andere Menge von Hex-Zeichen geändert werden müssen (dh Null in Leerzeichen, siehe unten). Ich habe das folgende Skript geschrieben, mein Problem ist, dass es nur das erste Vorkommen und nichts anderes ersetzt.

Ich habe versucht, die/g wie ein normales sed-Muster, aber es funktioniert nicht. Gibt es eine Möglichkeit, dies zu tun und alle Übereinstimmungen zu ersetzen?

(Der Grund, warum ich kein $line =~ s/... verwendet habe, ist, weil ich denke, dass es so übersichtlicher und wartungsfreundlicher ist, und dieses Skript muss von anderen Benutzern geöffnet und ausgeführt werden, die die zu ersetzenden Hexadezimalwerte bearbeiten müssen) . Ein weiterer Grund ist, dass ich von 10 Hex-Werten auf eine äquivalente Menge ändern muss, so dass ein großer Liner schwer zu lesen wäre. Vielen Dank im Voraus.

#!/usr/bin/perl 


use strict; 
use warnings; 

my $filebase = shift || "testreplace.txt"; 
my $filefilter = shift || "testf"; 

open my $fh1, '>', 'testreplaceout'; 

# Iterate over file and read lines 
open my $file1, '<', $filebase; 

while (my $line = <$file1>) 
{ 
    chomp($line); 

    for ($line) { 
      s/\x00/\x20/g; 
      s/\x31/\x32/g; 
    } 

    print {$fh1} "$line \n"; 


} 

Answer 1

Update: Lesen Sie Kommentare für Vorbehalte dieser Antwort.

Hier ist eine Möglichkeit, dass Sie Ihre Liste der regex Suche zu halten erlauben werden/ersetzt am Anfang des Skripts schön und sauber für eine einfache Anzeige und Änderung:

use warnings; 
use strict; 

my @re_list = (
    ['a', 'x'], 
    ['b', 'y'], 
); 

while (my $line = <DATA>){ 
    for my $re (@re_list){ 
     $line =~ s/$re->[0]/$re->[1]/g; 
    } 
    print $line; 
} 

__DATA__ 
aaabbbccc 
bbbcccddd 
ababababa 

Ausgang:

xxxyyyccc 
yyycccddd 
xyxyxyxyx 

Answer 2

/g wird tun, was Sie wollen. Wenn es nicht zu funktionieren scheint, fügen Sie einige Debug:

use Data::Dumper; 
$Data::Dumper::Useqq = $Data::Dumper::Terse = 1; 

Und in der Schleife:

print Dumper($line); 
for ($line) { 
     s/\x00/\x20/g; 
     s/\x31/\x32/g; 
} 
print Dumper($line); 

mit paarigen Trennzeichen verwenden tr stattdessen kann sehr gut lesbar sein/wartbar:

$line =~ tr[\x00\x31] 
        [\x20\x32]; 

auch

betrachten use autodie; Zugabe

Answer 3

tr/// ist wahrscheinlich Ihre beste Wette hier (da Sie mit ständigen Ersatz einzelner Zeichen zu tun haben). Das Folgende ist eine allgemeinere Lösung.

my %replacements = (
    'foo' => 'bar', 
    'bar' => 'baz', 
); 

my $pat = join '|', map quotemeta, keys(%replacement); 

s/($pat)/$replacements{$1}/g;