Here's the story that I didn't want to bore anyone with.

When an "extract" is performed here at present, they perform too many steps. (create temp table in database, populate temp table, use "DataJunction" to export temp table info to file, clean up database)

My idea was since they are using Perl already to parse data from outside sources, we could use Perl to do the "extracts." Perl would be perfect for that.

Since the Product that I support will be going away (we hope), and changing to an OO thing, Ifigured that we could use OO in Perl to do "extracts" and the converse which is "Loads." This way our objects could WDDX all their information over to the new objects. Also the database would be left alone to do what it does best.

My "extract" object gets the database-wide key, and creates a "profile" object that contains all the fields from the database. This is exactly what I wanted. This is exactly what I want because we can take the "profile" and write it to the database or the WDDX or a file and it can be populated from any source like the database, or WDDX or a file.

If you are still awake, here is where I am slightly stuck. My "extract" opens all the proper files, and retrieves the database-wide key according to the proper parameters. Now I need to take this list(extract_object->list_of_database_wide_keys) and create a "profile" object for each one and then write it to the files.

I keeping getting a SQL statement like "select * from table where database_wide_key = ARRAY(XXXXXXXX)"
I just don't know how to properly dereference that array reference. I've gotten SQL errors like cant convert CHAR 'ARRAY(XXXXXXX)' to INT4 field.

My forehead is flatter and embedded with small shards of busted monitor.

Ahhh! To dereference an array ref, you can do the following @{$ref} or to get individual numbered elements do $ref->[0] $ref->[3] whatever the index is. So if your name is the first element in the arrayref $name, you would get it by doing $name->[0]

is that more what you were looking for?
                - Ant

OK, feel free to point and laugh!

 my $self = shift;
    foreach my $var($self->tsids) {
        my $name = new profile($var); ###profile->Name($var)
   my $connection = $self->connection;
   my $sth = $connection->connection->prepare( "SELECT  Last_Name = La
+stName, First_Name = FirstName, Middle_Name = MidName, Job_Title = Jo
+bTitle, Birthdate = Birthdate FROM table WHERE database_wide_key = ?"
+ );
   my @names = ($var);
   my $rc = $sth->execute(@names) or die "I'm sorry dave";
   my $fieldnames = $sth->{NAME};

   while(my $row = $sth->fetch) {

    for (0 .. ( scalar @{ $fieldnames } -1 )) { $_ = '' unless defined
+; 

    $_ =~ s/\s//g;
   my $prop = $fieldnames->[ $_ ];
   my $val = $row->[ $_];
   $name->$prop($val);
   }
    }
    }
[download]

This code fails with an error message saying that ARRAY(XXXXXX) is not a valid value, which I understand that it is not. I just can't figure out how to dereference the array reference so that ARRAY(XXXXXXX) is resolved to a number.