Pablo Fischer wrote:
> 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
Hi Pablo.
Is there only one record in the file? Or is there something to separate the
'Date' field of the first record from the 'Number' field of the next one?
If there is only a single record in the file then you need to read the
whole file into a single scalar like this.
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";
But if there's more than one then you need to explain to us
how they're separated.
I hope this helps,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
