[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]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