Leer y cambiar archivo.

[Francisco (Paquito) Carmona León]

Roberto Jimeno wrote:
> 
> >    > 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);
> 
>         Esa solución me gusta y me parece limpia y ordenada; sin
> embargo, en un apuro también es posible hacerlo sencillamente así:
> 
> $num = `cat number.txt`;
> $num--;
> system "echo $num > number.txt";
> 
>                                                 (el de fcarmona es mejor)
> --
Roberto:
que sea mejor lo dudo, tu ejemplo esta simplificado y bonito (pero
gracias por las flores... pero que no sean muchas, por que luego huele a
panteon jejeje), ahora si nos ponemos a buscar de cuantas maneras
podemos hacer lo que ulises pidio... creo que podriamos encontrar
infinidad de formas.... esto es lo bonito de perl, hay más de una forma
de hacer lo que quieres...
Saludos desde el bellisimo puerto jarocho.
-- 
Matias Software Group                                   (525) 256-0214
Soporte comercial para Linux y Apache en Mexico         info@msg.com.mx