2011年03月20日
PerlでparseInt @ Mac
JavascriptのコードからPerlへ移植中に、parseIntを使って3進数の変換をしている記述があり、PerlだとparseIntが無い。困ったと思い、調べて見るも、2進数、8進数、16進数は存在するも、3進数なんてモノを変換する関数はない。
で、書きました。内容のチェックとか入れてないので、簡易的なモノです。使う時は注意して下さい。
sub parseInt(){
my($str,$number) = @_;
$len = length($str);
$multiplier = $len-1;
$resulut = 0;
for($i=0 ;$i< $len ;$i++,$multiplier--){
$place = substr($str,$i,1);
$resulut += $place*($number**$multiplier);
}
return $resulut;
}
閲覧数:
2692 /
関連日記
- 2004年09月19日 フジグラン緑井に出店する店舗 (24057)@ 広島
- 2006年11月29日 大量にあるswfの縦横幅の調べ方 (7821)@ Flash
- 2006年04月23日 cgi-bin/minibbs/$ENV{SCRIPT_NAME}?log=$cmd{log} (6632)@ ウェブ
- 2007年07月28日 ソケット通信と外部プログラム呼び出し (4967)@ Flash
- 2006年04月27日 たけしのコマネチ大学数学科「モンテカルロ法」 (4202)@ テレビ
- 2006年04月20日 たけしのコマネチ大学数学科 (3558)@ テレビ
- 2009年02月09日 UNIX time が「1234567890」 (3539)@ Linux
- 2009年01月22日 RTMP仕様公開 (3434)@ Flash
- 2006年07月02日 Plaggerインストール (3217)@ Mac
- 2007年08月28日 ADDT:ファイルリストレコードセット2 (3046)@ Mac
- 2009年02月22日 昨日は第10回『Webさわり会議』でした (3038)@ 雑
- 2008年03月22日 Komodo Edit (2951)@ Mac
- 2005年03月13日 FileMerge (2892)@ Mac
- 2007年02月23日 スマートなPerlのススメ (2765)@ ウェブ
- 2002年09月23日 Zopeのプロダクト (2665)@ Linux
- 2006年07月01日 mixiミュージックへの情報送信 (2613)@ Mac
- 2011年03月20日 GeoHex V3をPerlに移植 (2546)@ ウェブ
- 2002年09月29日 Shade6の新機能 (2527)@ Shade
- 2002年09月17日 郵便番号 (2515)@ Linux
- 2003年09月27日 Dreamweaver+PHAkt+PostgreSQL (2460)@ Mac
- 2006年11月06日 awkでファイル名を小文字に (2420)@ Mac
- 2002年09月21日 Python (2410)@ Linux
- 2009年01月23日 The 25-Line ActionScript Contest January 2009 Finalists (2377)@ Flash
- 2004年08月24日 SNS色々 (2374)@ ウェブ
- 2010年10月25日 NSPredicate (2309)@ Mac
- 2006年01月23日 MX Kollectionで日本語メール (2302)@ Mac
- 2007年05月08日 TextMate (2250)@ Mac
- 2004年12月05日 Perlモジュール/WWW::Mixi (2216)@ ウェブ
- 2002年09月17日 PerlでPostgreSQL (2196)@ Linux
- 2004年01月13日 関心空間の情報をRSS化するCGI (2192)@ ウェブ
アマゾン広告
この日記ページは閲覧数などの条件に応じて、閲覧制限を行っています。他からリンクしていただいても、そのリンクから辿った閲覧者が当ページの内容をご覧頂けない場合があります。ご了承下さい。
