Foro - Perl en Español

Publicado: **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!!!

Publicado: **2013-01-07 11:21 @514**

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.004 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Perl format

Perl format

Re: Perl format