• Publicidad

Mandar a imprimir a una función

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Mandar a imprimir a una función

Notapor teco000 » 2008-06-26 10:42 @487

Saludos, quisiera saber si me pueden ayudar, tengo una función x, a la cual le tengo que mandar diferentes nombres de archivos para que escriba en ellos. ¿Cómo lo puedo hacer ya que no me funciona lo siguiente?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
sub imprimir ($a){
open ($a , ">>archivo.txt");
  printf   $a " $contenido";

}



imprimir (CASA);
imprimir (CARRO);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Publicidad

Notapor kidd » 2008-06-26 13:29 @603

Hay unos errores de sintáxis. Te recomiendo que leas acerca de cómo crear tus funciones en Perl.

Básicamente el código que necesitarías es:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
imprimir("CASA");
imprimir("CARRO");

sub imprimir{
    my $contenido = shift;

    open my $FILE, '>>', 'archivo.txt' or die $!;
    print {$FILE} $contenido;
    close $FILE;
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 29 invitados

cron