Skip to content
Snippets Groups Projects
Commit 8a1556b4 authored by anonymous's avatar anonymous
Browse files

fix anonymizeLog

parent 8ead004c
No related branches found
No related tags found
No related merge requests found
...@@ -61,10 +61,8 @@ while (my $Line = <STDIN>) { ...@@ -61,10 +61,8 @@ while (my $Line = <STDIN>) {
chomp $Line; chomp $Line;
# Erschöpftende Suche mit s/Pattern/Replacement/g; zuerst wird Slave, Master und Data-Server ersetzt anschließend, alle IP adressen mit ersetzt. # Erschöpftende Suche mit s/Pattern/Replacement/g; zuerst wird Slave, Master und Data-Server ersetzt anschließend, alle IP adressen mit ersetzt.
$Line =~ s/IP-Adresse-SlaveServer/SlaveServer/g; $Line =~ s/(\d{1,3})\.(\d{1,3})\.\d{1,3}\.\d{1,3}/$1.$2.0.0/g;
$Line =~ s/IP-Adresse-MasterServer/MasterServer/g;
$Line =~ s/IP-Adresse-PSQL_Sever/DataServer/g;
$Line =~ s/\.\d{1,3}\.\d{1,3}\.\d{1,3}/.X.X.X/g;
print $LOG "$Line\n"; print $LOG "$Line\n";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment