No bug, just a simple coding error :-) If you used better varnames than $i and $j it would be more obvious. Just a thought. 

for $i (keys %data) {
    push (@ips, $i); 
   for $j (keys %{$data{$i}{ports}}) {
     # push (@names, $data{$i}{cname}); # <--wrong
     push (@names, $data{$i}{$j}{cname});
   }
}

# compare that with this code that uses logical names 
# if also uses my to localise variable scope, strict compliant too

for my $ip (keys %data) {
   push @ips, $ip; 
   for my $port ( keys %{$data{$ip}->{ports}} ) {
      push @names, $data{$ip}->{$port}->{cname};
   }
}

[download]

I recommend that you add this code to check your data structure after you build %data from the file (if you were using CGI::Simple you could just call the dump() method :-) but anyway: 

# make %data

require Data::Dumper;
print $q->header;
print $q->escapeHTML(Dumper(\%data));
exit;

[download]

This will tell you if you have the correct data structure. I will tell you now with your current code you won't. I suspect there may be some serious logic errors in it. If you post a sample of the file I'll give you a hand to parse it into a logical data structure.

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In reply to Re: Possible Bug? by tachyon
in thread DBI script runs from command line, not from CGI by dru145

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.