Una duda: yo hago mi archivo con el programa de Perl y lo llamo
final.dat.
De igual forma lo hago con cat y lo llamo
final2.dat.
Veo que tienen el mismo tamaño y de igual forma veo que las lineas por
wc * son iguales.
Pero si los abro con el editor de texto en la parte inferior uno dice:
Ln2442 Col205y el otro dice
Ln 1976 Col 153Mi pregunta es esta: ¿puede dar pie a que realmente no sean iguales? ¿o qué está pasando?
##### Jejeje. a que explorer ### ya hacía tiempo que no recibía tus comentarios bueno hace tiempo que no posteaba... es que es más o menos así como lo quería el caso es que siempre van a ser tres archivos y siempre va a ser un archivo al final; se que no se ve muy elegante, pero haber dame tu opinión, o sugerencia de cómo poder mejorarlo,
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use POSIX
;
#**************************************************
my $AYER = strftime
("%Y%m%d", localtime(time - 86400
));
#**************************************************
$AYER1= "rec_cero_$AYER.txt";
$AYER2= "rec_uno_$AYER.txt";
$AYER3= "rec_dos_$AYER.txt";
foreach ($AYER1 ,$AYER2 ,$AYER3)
{
open(FILE
, $_) || ((warn "Can't open file $_\n"));
while (<FILE>)
{
open (Data
, ">>final.dat");
print Data
"$_";
}
open (Data
, ">>final.dat");
print Data
"commit";
close(FILE
);
close (Data
);
}Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
por Kiloko » 2007-11-29 14:40 @653 
je je, ya vi por dónde iba la cosa, ya quedó.
Jejeje...
¿cómo inserto un archivo, que ya contiene las líneas? Manualmente entro a sqlplus y después tecleo @nombre.extencion, pero en Perl ¿cómo seria? Me he quedado atorado en esta parte.