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

Okay :)

my $num = 100;
my $digit = int ($num / ('1' . ('0' x (@{[ $num =~ /(.)/g ]} - 1))));

[download]

I don't know.. is this reverse golf?

--
Leviathan
  • Comment on Re^4: How to extract the first elemnet from an integer type value ???
  • Download Code

In Section Seekers of Perl Wisdom