Re: How to extract the first elemnet from an integer type value ???

my $digit = (split //, '100')[0];
[download]

Update or

my $num = 100;
my $digit = int ($num / 10 ** int (log ($num) / log(10)));
[download]

DWIM is Perl's answer to Gödel

Comment on Re: How to extract the first elemnet from an integer type value ??? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to extract the first elemnet from an integer type value ??? by Leviathan (Scribe) on Aug 31, 2006 at 09:49 UTC
`my $num = 100; my $digit = int ($num / 10 ** (length($num)-1) );` [download] -- Leviathan	[reply] [d/l]
Re^3: How to extract the first elemnet from an integer type value ??? by GrandFather (Saint) on Aug 31, 2006 at 09:55 UTC
`my $num = 100; my $digit = int ($num / ('1' . ('0' x int (length ($num) -1))));` [download] DWIM is Perl's answer to Gödel	[reply] [d/l]
Re^4: How to extract the first elemnet from an integer type value ??? by Not_a_Number (Prior) on Aug 31, 2006 at 10:08 UTC
`my $digit = chop ( my $mun = reverse $num );`	[reply] [d/l]
Re^5: How to extract the first elemnet from an integer type value ??? by GrandFather (Saint) on Aug 31, 2006 at 10:16 UTC
Re^6: How to extract the first elemnet from an integer type value ??? by Not_a_Number (Prior) on Aug 31, 2006 at 10:44 UTC
Some notes below your chosen depth have not been shown here
Re^4: How to extract the first elemnet from an integer type value ??? by Leviathan (Scribe) on Aug 31, 2006 at 10:11 UTC
Okay :) `my $num = 100; my $digit = int ($num / ('1' . ('0' x (@{[ $num =~ /(.)/g ]} - 1))));` [download] I don't know.. is this reverse golf? -- Leviathan	[reply] [d/l]