Ejemplo: si la entrada es
La salida debe ser
El código me separa bien, pero no respeta las indentaciones, o sea es:
- <h1><p>laskfajslkfj</p>
- </h1>
- <br> #br no está indentado y debería
Por ahora el tema optimización no es primordial, sino que pueda entender, luego mejoramos
Using perl Syntax Highlighting
$er_tags_cierre = '(.*?)(<\s*/)(.+?)(>)(\s*)';
if(open(INFILE,"html.txt"))
{
$file_aux = "";
while ($linea = <INFILE>)
{
$file_aux = $file_aux.$linea; # Leemos todas las líneas y las metemos en una variable
}
close (INFILE);
while ($file_aux =~ /$er_tags_cierre/gsi)
{
@linea = split /\n/,$1 ;
foreach $palabra(@linea)
{
print $palabra;
}
print $2.$3.$4."\n";
}
}
else
{print "No hay archivo de entrada\n";}
if(open(INFILE,"html.txt"))
{
$file_aux = "";
while ($linea = <INFILE>)
{
$file_aux = $file_aux.$linea; # Leemos todas las líneas y las metemos en una variable
}
close (INFILE);
while ($file_aux =~ /$er_tags_cierre/gsi)
{
@linea = split /\n/,$1 ;
foreach $palabra(@linea)
{
print $palabra;
}
print $2.$3.$4."\n";
}
}
else
{print "No hay archivo de entrada\n";}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¡Muchas gracias! salú
