Re^3: Populating an array from a mysql select

Allow me to explain.

fetchall_arrayref returns an array ref, i.e. a scalar value which is a reference to an array (which will stringify as something like ARRAY(0x81503e8) if you try and print it out). You want to dereference this, and gain access to the array, hence the @{...}. This array has one element per row.

Unfortunately, this is not quite exactly what you want, as it's an array of arrayrefs. Each of the referenced arrays only has one element, as your SQL is only returning one column, but would contain more than one value if your query was returning more columns (note: there is no such method as fetchcol_arrayref).

The trick I have done is to fish out the element of each array, as the action for the map function. I could have written this as a for loop, but this kind of inline transformation lends itself to the builtins map and grep.

For further reading, see perlreftut.

--
wetware hacker
(Qualified NLP Practitioner and Hypnotherapist)

Comment on Re^3: Populating an array from a mysql select Download Code

Replies are listed 'Best First'.
Re^4: Populating an array from a mysql select by Nik (Initiate) on May 04, 2007 at 19:43 UTC
An array reference is actually a pointer(as we would have said in C++) that points to the starting memoery location of the array?! And de-reference means to point to the value of memory location instead of the memory location itself? Also this: my @titlelist; open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/vault/titlelist.txt" or die $!; @titlelist = <FILE>; close FILE; print br() x 3; print start_form( action=>'/cgi-bin/admin.pl' ); print table( {class=>'user_form'}, Tr( td( 'Πές μου τι &#95 +2;α ήθελες:' ), td( popup_menu( -name=>'title' -values=>\@titlelist ))), Tr( td( 'Κάτι άλλο &#960 +;ου θα ήθελες &#957 +;α σχολιάσεις? +' ), td( textarea( -name=>'remark', -rows=>4, -columns=>25 ))), Tr( td( 'Το τηλέφων +ο επικοινωνί&# +945;ς σου για επι&# +946;εβαίωση είναι:' ), td( textfield( -name=>'phone' )) +), Tr( td( a( {href=>'/cgi-bin/show.pl?name=showbook'}, font( {size=>3, color=>'yellow'}, 'Εμφάν&#95 +3;ση!' ))), td( submit( 'Αποστολ&#942 +;!' ))) ); print hidden(-name=>'date', -value=>$date); print hidden(-name=>'host', -value=>$host); print end_form(); [download] Although @titlelist is filled with all entries from titlelist.txt file(one entry per line), when it gets printed with popup_menu it displays nothing at all!!	[reply] [d/l]
Re^5: Populating an array from a mysql select by Fletch (Bishop) on May 04, 2007 at 19:53 UTC
Pointers and references are similar but distinctly different beasts; for example pointers can be manipulated (e.g. you add one to get to the next item), whereas references are opaque (it doesn't make sense to say `$array_ref += 1`). A read of perlreftut may be in order before reading perlref.	[reply] [d/l]
Re^6: Populating an array from a mysql select by blazar (Canon) on May 05, 2007 at 15:16 UTC
Pointers and references are similar but distinctly different beasts I have a strange sensation, just as if I had already answered that question elsewhere. But I'm getting tired pointing out so.	[reply]


P is for Practical
	PerlMonks