regression_test/XML/xsdConverter/HN21072/log2xml.pl

   1 #!/usr/bin/perl -wln
   2 ###############################################################################
   3 # Copyright (c) 2000-2014 Ericsson Telecom AB
   4 # All rights reserved. This program and the accompanying materials
   5 # are made available under the terms of the Eclipse Public License v1.0
   6 # which accompanies this distribution, and is available at
   7 # http://www.eclipse.org/legal/epl-v10.html
   8 ###############################################################################
   9
  10 use strict;
  11
  12 next unless my ($txt) = m{Action: '[\da-fA-F]+'O \("(.+)"\)};
  13
  14 $txt =~ s/\\n/\n/g;
  15 $txt =~ s/\\t/\t/g;
  16 $txt =~ s/\\"/"/g;
  17
  18 print $txt;