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

my $num = 100;
my $digit = int ($num / ('1' . ('0' x int (length ($num) -1))));
[download]

DWIM is Perl's answer to Gödel

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

Replies are listed 'Best First'.
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
`chop $num while $num > 9;` [download] DWIM is Perl's answer to Gödel	[reply] [d/l]
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
`chop $num until length $num == 1;`	[reply] [d/l]
Re^7: How to extract the first elemnet from an integer type value ??? by GrandFather (Saint) on Aug 31, 2006 at 10:52 UTC
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]