Checking My code and trying with this: open(ARCHIVO, "MOVER.CPO"); my $file = <ARCHIVO>; #Yes I know that I need to use and array, just trying #Cerramos el archivo close(ARCHIVO); #open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!"; my ($num, $fulanos, $tiempo, $subject, @bodyhtml, @bodytxt, $attach, $fechaenvio ) = split (/\|/, $file);
print "The Number: $num\n"; print "Fulanos: $fulanos\n"; print "Time: $tiempo\n"; print "Subject: $subject\n"; print "BodyHTML: $bodyhtml\n"; print "BodyTXT: $bodytxt\n"; print "Attachment: $attach\n"; print "Date: $fechaenvio\n"; Now What I get: The Number: 3 Fulanos: Archivo1, Archivo2, ARchivo3 Time: 13 Subject: COMOESTAS BodyHTML: BodyTXT: Attachment: Date: And its working, ONLY with the first line :-(, I know why, cause Im not using an array to load the FILE :-( MOVER.CPO 3|Archivo1, Archivo2, ARchivo3|13|COMOESTAS| <body> Special Promotions </body> | Special Promotions |/home/unmada/Programacion/Perl|20030408 Thanks! Pablo -- Pablo Fischer Sandoval ([EMAIL PROTECTED]) http://www.pablo.com.mx http://www.debianmexico.org GPG FingerTip: 3D49 4CB8 8951 F2CA 8131 AF7C D1B9 1FB9 6B11 810C Firma URL: http://www.pablo.com.mx/firmagpg.txt -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
