Guardar variable y reemplazarla por otra
Publicado: 2016-08-22 17:04 @753
Estimados perleros: Tengo un archivo con extensión .kml y lo que quiero es buscar una línea especifica (muy larga) que contiene un valor determinado. Este valor debe reemplazar esa línea. El código que tengo identifica los valores de cada línea pero no sé cómo reemplazarlos. Por ejemplo esta es la línea que busco (que se repite unas cuantas veces) dentro del archivo kml adjunto:
y lo que quiero lograr es que quede así:
Ese número tres viene después de "Min Level</b></div></td><td width="50%">3<".
Les muestro mi código que identifica esos valores y las líneas a reemplazar (que está comentada), pero no sé cómo guardarlas en variables y reemplazarlas, y dejar el resto del archivo igual.
Les agradezco muchísimo su tiempo y ayuda.
Using xml Syntax Highlighting
- <description>
- <![CDATA[<table width="300" border="0" cellspacing="3" cellpadding="3"><tr><td colspan="2"><div align="left"><font size="+2"><b>CALPOST Results: Level 1</b></font><hr/></div></td></tr><tr><td height="119" colspan="2"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="4"><tr bgcolor="#DCE8EE"><td width="50%"><div align="right"><b>Min Level</b></div></td><td width="50%">3</td></tr><tr bgcolor="#DCE8EE"><td width="50%"><div align="right"><b>Max Level</b></div></td><td width="50%">5</td></tr></table></td></tr><tr><td width="100%"><a href="http://www.weblakes.com" target="_blank"><img src="http://www.weblakes.com/images/Lakes_Logo_Google.gif" alt="logo" border="0" /></a></td><td width="200"><p align="right"><font size="3" color="#666666">CALPUFF View 5.0.1<br><a href="http://www.webLakes.com">www.webLakes.com</a><br>Lakes Environmental Software</font></td></tr></table>]]>
- </description>
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
y lo que quiero lograr es que quede así:
Using xml Syntax Highlighting
- <description>
- 3
- </description>
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Ese número tres viene después de "Min Level</b></div></td><td width="50%">3<".
Les muestro mi código que identifica esos valores y las líneas a reemplazar (que está comentada), pero no sé cómo guardarlas en variables y reemplazarlas, y dejar el resto del archivo igual.
Les agradezco muchísimo su tiempo y ayuda.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use diagnostics;
- use warnings;
- open my $FILE, '<' , 'mp10p98contru.kml';
- my @archivo = <$FILE>;
- close $FILE;
- for my $linea (@archivo) {
- if ($linea =~ />(\d+.?\d*)</) {
- print "$1\n";
- # print "$linea" if $linea =~ /^(<!\[CDATA\[<table\s)|(\/table>\]\]>)$/;
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4