Hi again;
Maybe I explained a little (??) bad my problem,
Using the code of John with what I need to get:
open ARCHIVO, 'MOVER.CPO' or die "Cannot open MOVER.CPO: $!";
my ( $num, $fulanos, $tiempo, $subject, $bodyhtml, $bodytxt, $attach,
$fechaenvio );
while ( <ARCHIVO> ) {
( $num, $fulanos, $tiempo, $subject, $bodyhtml, $bodytxt, $attach,
$fechaenvio ) = split /\|/;
# print join( ' | ', $num, $fulanos, $tiempo, $subject, $attach,
$fechaenvio ), "\n";
}
close ARCHIVO;
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";
Ok, what I get is:
The Number:
Fulanos: /home/unmada/Programacion/Perl
Time: 20030408
Subject:
BodyHTML:
BodyTXT:
Attachment:
Date:
and what I NEed to get is:
The Number: 3
Fulanos: Archivo1, Archivo2, ARchivo3
Time: 13
Subject: COMOESTAS
BodyHTML: <body>Special Promotions</body> (with the correct new lines)
BodyTXT: Special Promotions
Attachment: /home/unmada/Programacion/Perl
Date: 20030408
Howerver, my MOVER.CPO contains:
3|Archivo1, Archivo2, ARchivo3|13|COMOESTAS|
<body>
Special Promotions
</body>
|
Special Promotions
|/home/unmada/Programacion/Perl|20030408
Looking to the what I get and what I need its to save in a different variable
the content of what is BEFORE the |, and after the last |. Obviously the
first word just have an | AFTER it, and th elast, BEFORE it.
I think that I need to use split, but see.. no what I need :-(
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]
