perlquestion
jesuashok
Hi all,
<p>
<code>
my $pat =
{qw(a - b = c ~ d ^)}->{substr($0, 0, 1)};
</code>
what the above code does? I am interested to know the above functionality
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-395537">
"Keep pouring your ideas"
</div></div>