Auto Ident XML

Publicado por Leonardo Berbert Gomes (última atualização em 20/02/2017)

[ Hits: 2.040 ]

Homepage: https://www.linkedin.com/in/leoberbert

Download ident_xml.pl




Identação para XML.

Modo de utilização:

echo "<?xml version="1.0" encoding="UTF-8"?><from>Teste</from><message>viva o linux</message>" | perl ident_xml.pl

<?xml version=1.0 encoding=UTF-8?>
<from>Teste</from>
<message>viva o linux</message>

  



Esconder código-fonte

#!/usr/bin/perl
use strict;
use warnings;

my $xml = '';
while (<STDIN>) { $xml .= $_; }

$xml =~ s|>[\n\s]+<|><|gs;
$xml =~ s|><|>\n<|gs;

my $indent = 0;

for my $x (split /\n/, $xml) {

  if ($x =~ m|^</|) { $indent--; }

  print '  'x$indent, $x, "\n";

  if ($x =~ m|^<[^/\?]|) { $indent++; } 
  if ($x =~ m|^<[^/][^>]*>[^<]*</|) { $indent--; } 
  if ($x =~ m|^<[^/][^>]*/>|) { $indent--; } 

}

Scripts recomendados

Verificação de IP em blacklists

Image Loader

Calculadora de notas versão Perl

Sem Queda 2.0

Monitoração Web com Perl


  

Comentários
[1] Comentário enviado por xerxeslins em 20/02/2017 - 14:25h

Esse script fez milagre com um arquivo XML gigante que eu precisava vasculhar.

OBRIGADUUU!

[2] Comentário enviado por xerxeslins em 20/02/2017 - 14:59h

Salvou minha vida!


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts