Thanks!!! That's what I was looking for!
Yep, the file has a single record, It works, thanks! Now looking your code, the difference its the local $/. What does local $/ its doing? Thanks! > > open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!"; > local $/; > my $file = <ARCHIVO>; > close ARCHIVO; > > 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"; > 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]
