in reply to How to extract the first elemnet from an integer type value ???

print int ($num / 100);

or

print substr($num,0,1);

or

if ($num=~m/(.)/) {print $1}

[download]
  • Comment on Re: How to extract the first elemnet from an integer type value ???
  • Download Code

In Section Seekers of Perl Wisdom