Instead of: print "obj:$obj->order_number($order_num)\n";
Try: print "obj: " . $obj->order_number($order_num) . "\n"; If u use a reference as a string it would give its reference type, the package and the location. -sharad -----Original Message----- From: Trevor Morrison [mailto:[EMAIL PROTECTED] Sent: Monday, July 07, 2003 8:24 PM To: [EMAIL PROTECTED] Subject: Data Structure Question Hi, I am trying to use a data structure to collect information about an online order. I have gotten response from this list and have implemented the changes I still cannot get the data to be pushed up into the array. My code is as follows ( with come cut out for brevity): 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 @test_order; my $obj = new miva_order; . . . . . if ($miva_orders[$counter+3] =~ /^Order Number : (\d+)/) { my $order_num = join(" ",split " ", $1); $order_num =~ s/^\s+//; print "Order Number is $order_num\n"; print "w is $w\n"; $obj->order_number ($order_num); print "obj:$obj->order_number($order_num)\n"; push @test_order, $obj; push @miva_test, { order_number=>$order_number}; $order_number[$w] = $1; #print "$order[$w]->{order_number}\n"; print compute "\n"; #print compute "Order number is: $order_number[$w]\n"; } . . . foreach $order (@test_order) { print $order; print "\n"; } When I try to print out the array with the information all I get is: foreach $order (@test_order) { print $order; print "\n"; } C:\maverick>perl miva_struc_class.pl # of Rows in Order: 25 rows in the 1 order Order Number is 3225 w is 1 obj:miva_order=ARRAY(0x1b29e44)->order_number(3225) # of Rows in Order: 27 rows in the 2 order Order Number is 3218 w is 2 obj:miva_order=ARRAY(0x1b29e44)->order_number(3218) # of Rows in Order: 25 rows in the 3 order Order Number is 3223 w is 3 obj:miva_order=ARRAY(0x1b29e44)->order_number(3223) # of Rows in Order: 26 rows in the 4 order Order Number is 5010 w is 4 obj:miva_order=ARRAY(0x1b29e44)->order_number(5010) # of Rows in Order: 29 rows in the 5 order Order Number is 5006 w is 5 obj:miva_order=ARRAY(0x1b29e44)->order_number(5006) # of Rows in Order: 26 rows in the 6 order Order Number is 5010 w is 6 obj:miva_order=ARRAY(0x1b29e44)->order_number(5010) # of Rows in Order: 26 rows in the 7 order Order Number is 5003 w is 7 obj:miva_order=ARRAY(0x1b29e44)->order_number(5003) # of Rows in Order: 27 rows in the 8 order Order Number is 4971 w is 8 obj:miva_order=ARRAY(0x1b29e44)->order_number(4971) # of Rows in Order: 26 rows in the 9 order Order Number is 4931 w is 9 obj:miva_order=ARRAY(0x1b29e44)->order_number(4931) # of Rows in Order: 27 rows in the 10 order Order Number is 4925 w is 10 obj:miva_order=ARRAY(0x1b29e44)->order_number(4925) # of Rows in Order: 25 rows in the 11 order Order Number is 4893 w is 11 obj:miva_order=ARRAY(0x1b29e44)->order_number(4893) # of Rows in Order: 26 rows in the 12 order Order Number is 4864 w is 12 obj:miva_order=ARRAY(0x1b29e44)->order_number(4864) # of Rows in Order: 25 rows in the 13 order Order Number is 4870 w is 13 obj:miva_order=ARRAY(0x1b29e44)->order_number(4870) # of Rows in Order: 29 rows in the 14 order Order Number is 4873 w is 14 obj:miva_order=ARRAY(0x1b29e44)->order_number(4873) # of Rows in Order: 25 rows in the 15 order Order Number is 3280 w is 15 obj:miva_order=ARRAY(0x1b29e44)->order_number(3280) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) miva_order=ARRAY(0x1b29e44) C:\maverick> What am I missing? TIA Trevor -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
