<br><font size=2><tt>&gt; (I am an ex-perler gone clean. Been straight
for 5 years now with only <br>
&gt; the occasional work forced binges.)<br>
&gt; <br>
&gt; Perl was designed by a linguist. He wanted it to act like human language
<br>
&gt; -- which is not very consistent.<br>
</tt></font>
<br><font size=2><tt>And from what I gather, quite effective. &nbsp;:-)</tt></font>
<br><font size=2><tt>&nbsp;<br>
<br>
&gt; Personally, the thing that keeps me away from Perl is nested datastructures.<br>
&gt; <br>
&gt; Python:<br>
&gt; <br>
&gt; my_list = [....]<br>
&gt; a_dict = {.....}<br>
&gt; b_dict = {.....}<br>
&gt; my_list.append(a_dict)<br>
&gt; my_list.append(b_dict)<br>
&gt; <br>
&gt; if my_list[0].has_key(&quot;foo&quot;): print &quot;Yes&quot;<br>
&gt; <br>
&gt; easy. Try that in Perl.<br>
</tt></font>
<br><font size=2><tt>OK, sounds like fun:</tt></font>
<br>
<br><font size=2><tt>my %a_dict = (...);</tt></font>
<br><font size=2><tt>my %b_dict = (...);</tt></font>
<br><font size=2><tt>my @my_list = (\%a_dict, \%b_dict);</tt></font>
<br><font size=2><tt>if (exists $my_list-&gt;[0]{foo}) print &quot;Yes\n&quot;;</tt></font>
<br>
<br><font size=2><tt>And if you want to do it another way:</tt></font>
<br>
<br><font size=2><tt>my @my_list = ( (...), (...) ); #define hashes in
the (...)'s</tt></font>
<br><font size=2><tt>print &quot;Yes\n&quot; if (exists $my_list-&gt;[0]{foo});</tt></font>
<br>
<br>
<br><font size=2><tt>Btw, I'm skeptical that the code below does what you
want it to do. &nbsp;:-)</tt></font>
<br><font size=2><tt>&nbsp;<br>
&gt; my @my_list; &nbsp; &nbsp; &nbsp; &nbsp; # remember those semicolons<br>
&gt; my %a_dict, %b_dict;<br>
&gt; push @my_list, %a_dict;<br>
&gt; push @my_list, %b_dict;<br>
&gt; if (exists $my_list-&gt;[0], &quot;foo&quot;) print &quot;Yes\n&quot;;<br>
&gt; # yes, references required, in Perl ick.<br>
&gt; _______________________________________________<br>
&gt; Tutor maillist &nbsp;- &nbsp;Tutor@python.org<br>
&gt; http://mail.python.org/mailman/listinfo/tutor<br>
</tt></font>