Foro - Perl en Español

por **silva** » 2013-01-07 10:12 @466

Estoy generando una función, la cual recibe cuatro variables como parámetros, y deseo ir conformando un archivo.txt con los datos que voy enviando a medida que invoco a la misma. El archivo tiene un formato tabular para lo cual estoy usando format, pero no sucede nada, no graba nada en el archivo, y no respeta tampoco el formato definido.

En vez de escribir el archivo lo muestra en pantalla y sin el formato indicado.

¿Qué estoy haciendo mal?

Sintáxis: [ Descargar ] [ Ocultar ]

sub generar_archivo_txt
{
my $apertura = shift;
my $titulo= shift;
my $dir_Files = shift;
my $FileTXT = shift;
my $dato_columna1= shift;
my $dato_columna2= shift ;
my $dato_columna3 = shift;
if ($apertura eq 'T') {
open(ARCHIVO_TXT,">$dir_Files/$FileTXT.txt") || die "\n Error al crear el archivo.\n\n";
format =
@<<<<<<<<< @<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< $@##.##
$dato_columna1, $dato_columna2, $dato_columna3
.
format STDOUT_TOP =
@|||||||||||||||||||||||||||||||||||| Pg @<
"$titulo_csv", $%
Columna1 Columna2 Columna3
----------------- ---------------- -------------------------
.
$dato_columna1= "" if !defined(dato_columna1);
$dato_columna2 = "" if !defined($cdato_columna2);
$dato_columna3= "" if !defined($dato_columna3);
write();
close (ARCHIVO_TXT);
}
else {
open(ARCHIVO_TXT,">>$dir_Files/$FileTXT.txt") || die "\n Error al actualizar el archivo.\n\n";
$dato_columna1= "" if !defined(dato_columna1);
$dato_columna2 = "" if !defined($cdato_columna2);
$dato_columna3= "" if !defined($dato_columna3);
write();
close (ARCHIVO_TXT);
}
return 1;
}

No esta grabando el archivo txt, Muestra por pantalla y sin el formato definido.

¡¡¡Gracias!!!

Creo que el problema está en el nombre que le das al formato, que no coincide con el gestor de archivo del archivo al que quieres mandar el formato.

Y algunos errores en la variables $dato_...

Y me parece que tienes definidos 4 parámetros por fila, pero yo solo veo 3 (las 3 variables $dato_...)

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub generar_archivo_txt {
    my($apertura, $titulo, $dir_Files, $FileTXT,
       $dato_columnas1, $dato_columnas2, $dato_columnas3) = @_;
 
    if ( $apertura eq 'T' ) {
        open( ARCHIVO_TXT, ">$dir_Files/$FileTXT.txt" ) or die "\n Error al crear el archivo: $!\n\n";
 
        $dato_columna1 = "" if !defined($dato_columna1);
        $dato_columna2 = "" if !defined($dato_columna2);
        $dato_columna3 = "" if !defined($dato_columna3);
 
        write();
        close (ARCHIVO_TXT);
    }
    else {
        open(ARCHIVO_TXT,">>$dir_Files/$FileTXT.txt") or die "\n Error al actualizar el archivo.\n\n";
 
        $dato_columna1 = "" if !defined($dato_columna1);
        $dato_columna2 = "" if !defined($dato_columna2);
        $dato_columna3 = "" if !defined($dato_columna3);
 
        write(); 
        close (ARCHIVO_TXT); 
    }
 
    return 1;
}
 
format ARCHIVO_TXT_TOP =
@|||||||||||||||||||||||||||||||||||| Pg @<
"$titulo_csv",    $%
 
Columna1          Columna2          Columna3
----------------- ----------------  -------------------------
.
 
format ARCHIVO_TXT =
@<<<<<<<<< @<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< $@##.##
$dato_columna1, $dato_columna2, $dato_columna3
.
 
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Perl format

Perl format

Publicidad

Re: Perl format

¿Quién está conectado?