in reply to Re^6: How to extract the first elemnet from an integer type value ???
in thread How to extract the first elemnet from an integer type value ???

$digit = chop $num while $num;

[download]
DWIM is Perl's answer to Gödel
  • Comment on Re^7: How to extract the first elemnet from an integer type value ???
  • Download Code

In Section Seekers of Perl Wisdom