zentara <[EMAIL PROTECTED] am.net> To Sent by: beginners-cgi@perl.org [EMAIL PROTECTED] cc ooper.com Subject Re: perl cgi scrolling list within 08/12/2005 09:13 a forloop AM
On Wed, 10 Aug 2005 13:32:39 -0400, [EMAIL PROTECTED] wrote: > foreach (@ARRAY With H strings) > { > print ('htapes99',[$_],5,'true',my %attributes); > } > >It prints to the intranet with the scroll lisyt but it is not printing the >actual H strings. Instead it is printing the array structure lie so: > > >ARRAY(0x16bd90)5trueARRAY(0x16f974)5trueARRAY(0x16bcf4)5trueARRAY(0x16bd90)5trueARRAY(0x16f9) All you need to do is dereference them and do whatever you want with them. foreach my $aref (@ARRAY With H strings) { my @arr = @$aref; print ('htapes99', @arr ,5,'true',my %attributes); } Of course you will probably want to make a nested loop to loop thru @arr instead of just printing it. -- I'm not really a human, but I play one on earth. http://zentara.net/japh.html +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams I was able to get it working without a foreach loop by using: my @H99tapes = ( ## .. ##); print $q->scrolling_list(-name=>'imported_tapes', -values=>[EMAIL PROTECTED], -default=>[$H99tapes[0]], -multiple=>1, -override=>1, -size=>10),"<br>"; print $q->submit(-name=>'action',-value=>'Delete'), $q->submit(-name=>'action',-value=>'Add'); ##--## Recover the new tape(s) from the Scroll List parameter 'imported_tapes' ##--## my @imports = param('imported_tapes'); My original problem was I wanted to use splice to dynamically re-populate an array or hash based off of what the user selected through this scroll list, but could not get this to work. Here s the pseucdode I am using: as H numbers are submitted by user from a scroll list remove selected elements from @H99tapes repopulate new list into @UserH99tapes print @UserH99tapes OR as H numbers are submitted by user from a scroll list remove selected elements from @H99tapes repush remaining elements into @H99tapes print @H99tapes Any ideas to help me with this problem? basically dynamically splicing an array or hash. Note each element contains unique data, H[0-1000] strings for example. ##--## BEGIN IMPORT ##--## ##--## AS H NUMBERS ARE SELECTED, REMOVE SUBMITTED ELEMENTS FROM USER ARRAY ##--## ##--## REPOPULATE LIST INTO NEW ARRAY, PRINT NEW ARRAY. ##--## my @tape_imports_to_del = $q->param(htapes99); ##--## SELECTED BY USER ##--# my $tape_count = scalar @tape_imports_to_del; ##--## COUNT ##--## foreach (@tape_imports) { splice (@H99tapes,0,$tape_count,@H99tapes) } thank you, derek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>