regression_test/XML/HN15589/log2xml.pl

   1 #!/usr/bin/perl -wln
   2 ###############################################################################
   3 # Copyright (c) 2000-2015 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 use strict;
  10
  11 next unless my ($txt) = m{Action: '[\da-fA-F]+'O \("(.+)"\)};
  12
  13 $txt =~ s/\\n/\n/g;
  14 $txt =~ s/\\t/\t/g;
  15
  16 print $txt;