[Ayuda] HELP!!!!!!

Jue Dic 13 12:14:40 CST 2001

El Jue 13 Dic 2001 13:37, Luis Medrano Zaldivar escribió:
> basiar el contenido de dos archivos en un tercero, pero

vaciar ( con "v" )

> Alguien me podria hechar la

echar ( sin "hache" )

>ante mano.

antemano ( una sola palabra)

> open (HEAD, ">head.txt");
> open (BODY, ">body.txt");

Aquí estás _borrando_ el contenido de head.txt y de body.txt (si no tenías respaldo, perdiste el contenido al ejecutar el script)

Lo que quieres es

open (HEAD, "<head.txt");     
open (BODY, "<body.txt");

Para que el archivo sea abierto para _lectura_

En las dos instrucciones siguientes, lo que haces es asignar a las variables sendas cadenas de texto, no el contenido de los archivos:
$head=HEAD;
$body=BODY;

Lo que quieres es
$head=<HEAD>;
$body=<BODY>;

Supongo que esto es un error de tipeado
> print "$hea :\n";
 por

> print "$head :\n";

Todo lo demás hace el trabajo. Así el script queda:

--------------------------------------------
#!/usr/bin/perl -w
print "¿Cuál es el nombre del archivo que quieres hacer? :\n";
chomp($archivo=<STDIN>);
open (HEAD, "<head.txt");
$head=<HEAD>;
open (BODY, "<body.txt");
$body=<BODY>;
print "$head :\n";
$texto=$head.$body;
close (HEAD);
close (BODY);
open (ARCHIVO, "+>>$archivo");
print ARCHIVO "$texto";
close (ARCHIVO);

--------------------------------------------

Saludos desde Venezuela

-- 
César Villanueva
SuSE Linux C.A.
"First they ignore you. Then they laugh at you.
Then they fight you. Then you win." [Gandhi] 
_______________________________________________
Ayuda mailing list
Ayuda en linux.org.mx