Perl populating a hash from an array of hashes -


I have a script where I'm trying to populate a Pearl hash, when I personally do it I'll be able to dereference them properly 

  while (my ($ key, $ value) = each (% {$ spec_hash {'XISX'}})} {print $ key, ",". $ Value; Print "\ n"; } While (my ($ key, $ value) = each (% {$ spec_hash {'XCBO}}} ")) {print $ key,", ". $ Value; Print "\ n"; }

But when I try just% spec_hash and dereference, it only holds a $ exch reference, while it should have been two - XISX and XCBO but it never goes on XCBO . 

  #! FOOConf using Sbcimp / dyn / data / EVT / GSD / script / Pearl / bin / pearl; # This is our custom DBI module usage data: dumper; FOOConf :: makeDBConnection (production); My $ dbh = $ FOOConf :: dbh; Choose e_risk_symbol from my $ query = "gsd_etds where level_name = 'EXCH_CS' and e_exch_dest = 'XISX' and e_symbol_comment in ('Bin_6', 'bin_56')"; If (! $ Dbh) {print "Error connecting to database; $ DBI :: errstr \ n"; } My $ cur_msg = $ dbh- & gt; Ready ($ query) or die "\ n \ nThe statement can not be prepared:". $ Dbh- & gt; Errstr; $ Cur_msg- & gt; Executed (); While (my @ line = $ cur_msg-> fetchrow_array) {$ spec_hash {'XISX'} {$ line [0]} = 1; } $ Query = "Select from gsd_etds e_risk_symbol where level_name = 'EXCH_CS' and e_exch_dest = 'XCBO' and e_combo_type = '9999'"; If (! $ Dbh) {print "Error connecting to database; $ DBI :: errstr \ n"; } $ Cur_msg = $ dbh- & gt; Ready ($ query) or die "\ n \ nThe statement can not be prepared:". $ Dbh- & gt; Errstr; $ Cur_msg- & gt; Executed (); While (my @ row = $ cur_msg- & gt; fetchrow_array) {$ spec_hash {'XCBO'} {$ line [0]} = 1; } #while (my ($ key, $ value) = each (% spec_hash)) {# print $ key, ",". $ Value; #print "\ n"; #} # # Foreign exchange my $ acquisition (sort keys% spec_hash) {# print "$ exch: $ spec_hash {$ exch}"; #} Print dumper (\% spec_hash);

This is a dumper - should not even be XCBO in dump? Why are there only XISX elements in hash? 

  $ VAR1 = {'XISX' = & gt; {'FCEL' = & gt; 1, 'GPS' = & gt; 1, 'MCO' = & gt; 1, 'DPZ' = & gt; 1, 'Wm' = & gt; 1, 'SPLS' => 1, 'ILMN' = & gt; 1, 'bwd' = & gt; 1, 'CTSH' = & gt; 1, 'EUUU = & gt; 1, 'MDVN' = & gt; 1, 'PDCO' = & gt; 1, 'AFAM' = & gt; 1, 'SHW' = & gt; 1,}};

Are you really populating those values?

While adding a print statement to the loop, try something like: 

  while (my @ line = $ cur_msg-> fetch_array) {$ spec_hash { XCBO '} {$ row [0]} = 1; Print "Delete Row [0] \ n"; }

My guess is that your query is not returning to add any result to hash unless I miss something, your second code looks fine.


-

Comments

Post a Comment

Popular posts from this blog

sqlite3 - UPDATE a table from the SELECT of another one -

I have the first table article where some data is missing. In the table, articles_tmp I have a part of the missing data. So I want to update the articles. Where the path path is data in articles_tmp.path where the path is not zero . With SQLite , it does not work: update article SET path = (SELECT at.path FROM Articles_tmp as AS, WHERE at.article_id = a.id and a.asp, the text is in the form and not on. It has been transmitted) where the path is null MS Access Along with, it works fine: Update Articles Join the Inner Articles at articles_tmp articles.id = articles_tmp.id SETP articles.path = articles_tmp.path Can anyone help? Sin CE SQL Server Syntax, which I provided, was not working, here this solution With whom I have come. A little modification of your original query, but with my "correlation" suggestion added. There is a SQL Bella for this: Here is the code: update article SET path = (SELECT path from articles_tmp AS T WHERE t.id
Read more

c# - Showing a SelectedItem's Property -

So I have enabled a rightclick option for my DataGrid. I want to display the only chosen property but it is not behaving like what I would like it to display my name and additional. Public category Paymentinfo {public int PaymentNo {get; Set; } Public string date {get; Set; } Public Double Pay {get; Set; } Public Double Principle {get; Set; } Public Double Interest {get; Set; } Public Double Balance {Received; Set; }} Private Zero MenuItem_OnClick (Object Sender, RoutedEventArgs e) {MessageBox.Show (AmortGrid.SelectedItem.ToString ()); } I'm trying to apply it without using a View Module! If I place a breakpoint where the messagebox and the recipient place it on selected ITEM, then this property will display the payment. A date-payment-principle-interest-balance is the only value that needs payment. Was hoping that it would be something like this MessageBox.Show (AmortGrid.SelectedItem.PaymentNo.ToString ()); When you call ToString () So you get the class typ
Read more

javascript - Render HTML after each iteration in loop -

I'm trying to gradually increase the font size of text on a web page. The code works in my place, although the new HTML / CSS does not render after every iteration of the loop and when all this is done, then display only the text of 100 px size. To see the text as if it is slowly zooming, I need to do this JavaScript is down because it is being used from a different file here is what I have ... < Pre> & lt; P class = "game-title" style = "font-size: 50px" & gt; Test & lt; / P & gt; Function sleep (milliseconds) {var start = new date (). GetTime (); For (var i = 0; i & lt; 1e7; i ++) {if ((new date). GetTime () - start) & gt; Milliseconds {break; CSS ('font-size', 'parseInt ($ (' game-title '). CSS (' font-size ')) + 1 + "pixels"); } While (parasont ($ ('# text'). Css ('font-size')) & lt; = 100) {sleep (1000); IncreaseSize (); Using CSS: Use of jQuery (sample):
Read more