Leer y cambiar archivo.

[Francisco (Paquito) Carmona León]

Ulises Ponce wrote:
> 
> Que tal Perlnianos!
> 
> Necesito que me echen una mano.
> Necesito leer un archivo que contiene solo un numero de 2 digitos.
> Restarle uno a ese numero y escribir el resultado a ese archivo.
> Es decir:
> El archivo file.txt solo tiene el numero 20.
> Leo el archivo y me dice que el numero que tiene es 20. Entonces le resto 1.
> El resultado es 19 y entonces que ese archivo ahora en vez de 20 tenga 19.
> Cual es la forma mas sencilla de hacerlo?
> 
> Gracias por su ayuda.
> 
> --
> Saludos,
> Ulises
> O Captain! My Captain!

open(NUMBER,"number.txt") || die $!;
$num = <NUMBER>;
close(NUMBER);
$num--;

###################
# Store Data Number
open(NUM,">number.txt") || die $!;
print NUM "$num";
close(NUM);



-- 
Matias Software Group                                   (525) 256-0214
Soporte comercial para Linux y Apache en Mexico         info@msg.com.mx