Hi,
I am new to using data structures in Perl, but have played with them in C (a
long time ago). I have downloaded the Class::Struct::Fields module on my
W2K system and all works well. I am finding the documentation a little
terse though.
I am trying to read into my Perl program orders that was placed through an
on-line shopping cart that are sent to an Outlook mailbox. I export the
email to a file that I read into my Perl program. Since each order is
basically the same as far as content is concerned there are some variation.
I would like to use a data structure to store each orders information in.
Now, I have read through the "Programming Perl" manual (Chapter 9) on Data
structures several times and searched the web for the information that I
need, but cannot find it.
If I claim my data structure like so:
use Class::Struct::FIELDS;
struct (miva_order => {
order_number =>'$' ,
date =>'$' ,
bill_name =>'$' ,
ship_name =>'$' ,
ship_email_address =>'$' ,
ship_phone_number =>'$' ,
ship_business_name =>'$' ,
ship_to_street =>'$' ,
ship_to_city =>'$' ,
ship_to_state =>'$' ,
ship_to_zip =>'$' ,
bill_to_street =>'$' ,
bill_to_city =>'$' ,
bill_to_state =>'$' ,
bill_to_zip =>'$' ,
quantity =>'$' ,
code =>'$' ,
shipping_method =>'$' ,
shipping_amount =>'$' ,
sales_tax =>'$' ,
notes =>'$'
}
);
my @order = new miva_order;
I want to fill the fields saying $order->order_number($order_numb) where the
$orders numb is pulled from the email using regular expressions.
Now, what I want to be able to do is say :
for (my $w=1; $w<=$number_of_orders; w++) {
print $order[$w]->order_number ;
}
and have all the order numbers that are associated with the each of the
orders print out; and it does not work this way. This is where my problem
is, I am coding wrong and I cannot see it. Any help is appreciated.
Trevor
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
