Hi again Ok, I have a file that each part of this is separated by pipes (|), so I load the file in an array and then split it, the file has 8 parts:
Part 1: a Number Part 2: a Big String (Maybe Im gonna use an array in this part) Part 3: a Number Part 4: a String Part 5: a BIG text (the same as PArt 2, load in an array) Part 6: another BIG text Part 7: a String Part 8: a number So I have the Perl script like this: #Abrimos el archivo open(ARCHIVO, "F737.JOP"); #Guardamos el archivo my @file = <ARCHIVO>; #Cerramos el archivo close(ARCHIVO); #Load the Data my($num, $fulanos, $tiempo, $subject, $bodyhtml, $bodytxt, $attach, $fechaenvio) = split(/\|/,@file); print "$num | $fulanos | $tiempo | $subject | $attach | $fechaenvio\n"; But When I print it doest print what it NEEDS to print, and example of the first pipes of F737.JOP: 1|Env7371.txt(6)|1|1 And it prints: 136 | | | | | I tried to change the split, to split(/|/,@file);, but the same, no good results :-( What could I bee doing bad? 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]
