Auto Ident XML
Publicado por Leonardo Berbert Gomes (última atualização em 20/02/2017)
[ Hits: 2.289 ]
Homepage: https://www.linkedin.com/in/leoberbert
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>
#!/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--; } }
Introdução a Persistência de Estrutura de Dados em Perl
Algoritmo de Fatoração de Fermat (FFA) em Perl
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Firewire resiste, Bcachefs sai: destaques Linux do dia
Kernel 6.18 em foco, betas fervilhando e avanços em IA no Linux
O que é o THP na configuração de RAM do Linux e quando desabilitá-lo
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como instalar Counter-Strike 1.6? (6)
intervenção politica pode interver no Fedora Linux [RESOLVIDO] (14)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (0)