Auto Ident XML
Publicado por Leonardo Berbert Gomes (última atualização em 20/02/2017)
[ Hits: 2.317 ]
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--; }
}
htt[p]erl, simulador de web server
Calculadora de notas versão Perl
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
PIP3 - erro ao instalar módulo do mariadb para o Python (9)
É normal não gostar de KDE? (8)
O programa assinador digital (0)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)









