¿Y qué me interesa? pues saber el estado de la cuenta, claro. En el código HTML está así:
- Remaining credit:<br>
- <span id="balanceid"><b>€ 10.00</b></span> <span class="buy">(<a href="buy_credit.php" class="buy">buy more</a></sp
- an>)
El código que uso es éste (la variable $tmp está definida y se refiere al archivo temporal con la página web):
Using perl Syntax Highlighting
die "$!" unless open(HTML, $tmp);
while(<HTML>) {
if ( $_ =~ m/.*balanceid.*(\d+)\.(\d+).*/ ) {
print "$&\n";
print "Saldo voipbuster: EUR $1.$2\n";
last;
}
}
close(HTML);
while(<HTML>) {
if ( $_ =~ m/.*balanceid.*(\d+)\.(\d+).*/ ) {
print "$&\n";
print "Saldo voipbuster: EUR $1.$2\n";
last;
}
}
close(HTML);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
y cuando ejecuto el script me dice:
Using bash Syntax Highlighting
$ voipbuster.pl
<span id="balanceid"><b>€ 10.00</b></span> <span class="buy">(<a href="buy_credit.php" class="buy">buy more</a></span>)
Saldo voipbuster: EUR 0.00
<span id="balanceid"><b>€ 10.00</b></span> <span class="buy">(<a href="buy_credit.php" class="buy">buy more</a></span>)
Saldo voipbuster: EUR 0.00
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
el print"$&\n" lo puse para comprobar que sí encontraba el saldo correcto. Lo que no entiendo es por qué no me da el resultado esperado de 10.00. Es una chorrada, pero no lo veo.
¿Alguna pista?
