Re: Converting dell tags to svc codes - itty-bitty golf, anyone?
Andrew Savige <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
--- Andy_Bach wrote:
> Question came up elsewhere and via:
> http://www.creativyst.com/Doc/Articles/HT/Dell/DellNumb.htm
>
> we found Dell uses base 36 for its Service tags. You need the decimal for
> the automated phone access so somebody came up w/:
> map {$s+=(/\d/?$_:(ord()-55))*(36**$i++)} reverse(split(//,uc shift));
> $s =~ s/(...)/$1-/g; print "$s\n";
>
> as a rough stab. But I thought I'd ask the first team for a
> cooler/shorter result, if anybody's interested.
See http://perlgolf.sourceforge.net/TPR/0/0/.
POSIX strtol might be handy (though it may spoil the golf;-).
/-\
____________________________________________________
Do you Yahoo!?
The New Yahoo! Movies: Check out the Latest Trailers, Premiere Photos and full Actor Database.
http://au.movies.yahoo.com