何はともあれ物は試し

c85で入門冊子をいただいたのではじめてみたのですが、 しばらくは試行錯誤です＾＾； 基本的には自分用のメモ 置いてる内容が地味に違ってるかもしれないけれど、そこはご容赦を。

[satobe13]

【git】error: insufficient permission for adding an object to repository database .git/objects

「git commitしようとしたらうまくいかない」といわれて、調べた内容のメモ。

git commitしたら、次のようなアラートが出てcommitできなかったとのこと。

error: insufficient permission for adding an object to repository database .git/objects

権限周りには間違いないような印象だが、特に何も問題はないような印象。 事例がないかをぐぐってみたら以下のサイトの記事があったのでメモ。

■をぶろぐ Git: 複数アカウントで同リポジトリーで作業していると “error: insufficient permission for adding an object to repository database .git/objects” が発生する

■kuma8の日記 [git] リポジトリを後から共有できるようにする。

両記事とも共有リポジトリ（リモートリポジトリ？）についてではあるんだけれど、.git以下（.git/objects？）のパーミッションの変更にて対応。 グループのwrite＋スティッキービット（Sticky Bit）の設定を追加する感じ。

$ cd .git $ chmod -R g+ws hooks $ chmod -R g+ws info $ chmod -R g+ws objects $ chmod -R g+ws refs

もう一度、権限周りをみてみよう。

[satobe13]

MySQL 5.7への移行する時の罠についてのお話へのリンク

YAPC Asia 2015のLTで聞いたなー、 と思いながらなかなか試す機会がなかったのですが（作れという話） MySQLのバージョンを変えれるという話がでてきたので、 せっかくなので試してみようと掘り起こしてきリンクをペタペタと残そうかと。

MySQL 5.7の罠があなたを狙っている

LT拝見したときには、 内容はかなり重要なのにトークが軽快すぎて笑ってた記憶がある（をぃ

で、いざ取り掛かろうと思ったら、 使用するMySQLのバージョンが5.6だった件について(´・ω・｀)

ところでWindows + Firefoxの環境でtumblrのマークダウンエディタを使用してポストしてるんですが、 エディタの機能が上手く働いていないというか、 入力した文字列が途中で消えたりするのは仕様なのかな（ダメだろ）

マークダウン、非推奨ってことかな？

[satobe13]

jqueryで連想配列を扱う時のメモ 2

2があるのかというのはどうだろうとおもうんですが、一旦置いておいて。

jqueryでの連想配列の使い方について。 jqueryは読み込み済みとしています。

js側

var $Hash = { "FileA":0, "FileB":1, }; for (var $hashKey in $Hash){ console.log('key is ' + $hashKey); console.log('value is ' + $Hash[$hashKey]); } $.each($Hash, function($key, $value){ console.log('key is ' + $key); console.log('value is ' + $value); });

forも$.eachも同じく

key is FileA value is 0 key is FileB value is 1

がconsoleに出力されるはず。

前のエントリーで $.eachの使い方を勘違いしてたようなので、折を見て直しておかないと。 functionの引数を1つにすると$keyだけが取得できる模様。

TASK NOTES 【jQuery】複数の要素に対して繰り返し処理をする（each・for）

jQuery日本語リファレンス jQuery.each(object, callback)

Qiita【JavaScript】連想配列のkeyとvalueの取得

tumblrでmarkdownでコードを書く時 codeタグとかバッククウォート×3でくくるのかと思ったら上手くいかず。 preタグでやってみたんだけれど、プレビューのときは表示されてるけど、 WEBでみるとダメっぽい。なんだろうこれ。

[satobe13]

ハッシュのキーの存在確認

概要

perlでのハッシュのキーの存在確認

方法

exists関数を使えばよさそう。

my %hash = ('a' => 'a', 'a2' => undef);

print exists($hash{'a'}); print exists($hash{'a2'});

どちらも1が返る。

キーの中に値があるかの確認はdefinedを使う。

my %hash = ('a' => 'a', 'a2' => undef);

print defined($hash{'a'}); print defined($hash{'a2'});

この場合は$hash{'a'}は1、$hash{'a2'}はundef(この場合は何も表示されない)が返る。

参考

■変数初期化と確認 http://bi.biopapyrus.net/perl/syntax/define.html

[satobe13]

MySQLで複数のレコードを追加したり更新する

perlスクリプト作ってforeachでぐるぐるUPDATE文回してたら、負荷が上がって怒られましたなう。

よくやるヤツなんですが、 INSERTを複数やるやり方は知ってたんですが、 UPDATEはそしらなかったのでメモしておきます。

複数の条件で複数のレコードを一括でUPDATEする

CASE文というものを使用します。

UPDATE [table_name] SET [target_column] = CASE WHEN [where_query] THEN [value] WHEN [where_query2] THEN [value2] WHEN [where_query3] THEN [value3] ELSE [target_column] END;

UPDATE friends SET nickname = CASE WHEN name = 'ゆい' AND birthday = '0920' THEN 'ほっちゃん' WHEN name = 'ゆかり' AND birthday = '0227' THEN '姫' WHEN name = 'めぐみ' AND birthday = '0102' THEN 'とよぐっち' ELSE nickname END;

最後のELSE [target_column] は大事です。 これがないと、条件式の[where_query]に当たらないレコードはすべてデフォルトになるっぽいです。

未確認ですが、これ使えるのってmysql5からなのかな？ mysql4でうまくいかなかったって話もあるので注意。

参考にしたのは以下のサイトです。

[MySQL]１クエリーで複数レコードのUpdate、さらにはUpdateとInsertを同時にやってしまおう。むっはっはの巻

複数行同時にUPDATEしてみる

ちなみにINSERTを複数やる

これは割りとよく使ってます。

INSERT INTO [table_name] ([target_column], [target_column2]) VALUES ([value_for_column], [value_for_column2]), ([value2_for_column], [value2_for_column2]), ([value3_for_column], [value3_for_column2]);

VALUESのあとに,でつなげたり

INSERT INTO [table_name] ([target_column], [target_column2]) SELECT [value_for_column], [value_for_column2] FROM [other_table] WHERE [where_query];

何かのテーブルの検索結果をそのまま突っ込んだり。

[satobe13]

findコマンドでピックアップしたファイルを対象に複数のコマンドを実行する

findコマンドが便利です。

すぐわかるfindコマンドの使い方

find コマンドで複数のコマンドを実行する

-maxdepth 1

指定したパスにあるものだけ取りたいときに便利です。 -type d の前に置かないとwarningもらうようです。

--execの複数回実行

-exec tar rvf tarball.tar {} \; -exec sleep 30 \;

みたいにしてインターバルをはさんで実行したり。 execには地味な注意点が。

find の -execオプションでよく間違うミス

[satobe13]

ファイル名を一括置換する方法

ファイル名の一括置換のコマンドのメモ。

# find . -type f -print0 | xargs -0 -I% mv % %.bak

findとxargs使っての方法。 方法は様々だけれど、これでやったよーという程度。

WindowsだったりMacOSだと、フリーウェア探すのもありかな。 逆にそっちのほうが面倒かな。 Windowsユーザだけれど、地味にこういうコマンドで一括でやりたいなーっておもう。 一長一短？

renameコマンドがあれば、そっちのほうが簡単。

# rename hoge HOGE hoge_01.txt hoge_02.txt

参考

find／xargsを使ったファイル・ディレクトリ名の一括置換／一括作成コマンド一覧 http://uguisu.skr.jp/Windows/find_xargs2.html

複数ファイルのファイル名を一括変換する http://kazmax.zpp.jp/linux/linux_rename.html

[satobe13]

passengerって何？

Rubyを触ってみたくてあれこれやってる中で、 Ruby on Railsだったり、 passengerってワードに行き当たるのですが、 そもそもこれなんだ？というところのメモです。

個人的な印象としては、 apache経由でRailsアプリケーションを実行するための仲介役みたいなもの。

http://redmine.jp/tech_note/apache-passenger/ http://www.geocities.jp/toyprog/passenger/Phusion_Passenger_design_and_architecture.html

確か、Rubyのアプリケーション自体、 ポートを指定しての起動とかできるはず。

ではなくて、apache経由で実行するために使用されるものという理解です。

インストールとか試してるんですが、地味に引っかかるところがちらほら。 地道にガンバりますかねー。

[satobe13]

日付のフォーマットを変える。

地味に良く使うのに毎度忘れるのでメモ。

■php

おおよそdate()とstrtotime()で何とかなりそう。 strtotime()はUNIXタイムスタンプを返す関数。 date()関数はタイムスタンプを任意のフォーマットに変換して出力できる関数。 date("Y/m/d H:i:s",strtotime("20120418")); date(”w”) // 曜日 date("Y/m/d H:i:s", strtotime('-1 day')) // 昨日

任意の日付けの前日

date('Y-m-d H:i:s', strtotime('-1 day', strtotime($ymd)) ); date('Y-m-d H:i:s', strtotime('-1 day', $timestamp) );

■perl

Time::Pieceだったり、 Time::Piece::MySQLだったり、 Date::Calcだったり、 Time::Secondsだったりと 正規表現を使ってあれこれやるのが、自分の中での標準。 もっといい手はきっとあるし、ベタにlocaltimeばらしてもいいと思う。

my $tmp = Time::Piece->strptime(STRING, FORMAT); my $tmp = Time::Piece->strptime(’2015-09-07’, '%Y-%m-%d’); STRINGに文字列、FORMATに書式を入れて準備。 print $tmp->strftime(’%Y%m%d’); # 20150907 何日前 localtime(time - $x * 24 * 60 * 60);

Add_Delta_Days($y, $m, $d, $x); # Date::Calc

localtime - ONE_DAY * $x; # Time::Secondes などなど。

参考） 日付の書式。strtotimeの引数に使用できる書式。 http://php.net/manual/ja/datetime.formats.date.php

PHPで日付関数を使いこなす（date, strtotime） http://qiita.com/shuntaro_tamura/items/b7908e6db527e1543837

[php] date()とstrtotime()で日時を取得する http://kihon-no-ki.com/php-use-date-and-strtotime

特定の日付の１日前とかを取得する http://qiita.com/ritukiii/items/c3d701d24030227d7646

Time::Piece - オブジェクト指向な時間オブジェクト http://perldoc.jp/docs/modules/Time-Piece-1.20/Time/Piece.pod

Time::Seconds - 他の日付の値を秒に変換する簡単なAPI http://perldoc.jp/docs/modules/Time-Piece-1.08/Seconds.pod

Date::Calc - グレゴリオ暦に基づいた日付計算 http://perldoc.jp/docs/modules/Date-Calc-5.3/Calc.pod

[satobe13]

CSSの設定値の初期化（無効化）

必要かわからない誰かが作ったCSSをずーーーーっと引き回して読んでるような時に、 こちらで設定したタグのclassとモロかぶって意図しないスタイルが適用された場合の対応として、 そのスタイルの初期状態に元に戻してしまおうという時のやりかた。

initialを使うことで戻せるようです。

例） .class {     background: initial; }

ちなみにIE10は駄目だそうです。

参考） ■ CSSを解除する http://www.shurey.com/html/css_initial.html

[satobe13]

MarkDown

MarkDownの書き方を覚えてみようと、文法サイトをめぐってみるものの、そもそも合ってるのかわからなかったので、チェックできるところがないかを探してみたら、こういうところがありました。便利。

**  Dillinger http://dillinger.io/

左のフォームにMarkDownを書くと、右のウィンドウでプレビューできるサイト。いわゆるオンラインのMarkDownエディタ。

** Markdown Previewer http://playground.k11i.biz/mp/

MarkDownを書いたファイルをドラッグ＆ドロップすると出力がでる。 ファイルを更新するとそれが反映されるというもの。すごく不思議。どうやってるんだろう。

ちなみに文法はこういうところ見て試してます。

**  KOJIKA17 文章作成やメモ書きにも便利、Markdown記法 http://kojika17.com/2013/01/starting-markdown.html

[satobe13]

tumblrのログイン

パスワード入力を間違えた時に、再入力して、正しいパスワードを入れてもはじかれることがしばしばある。というより、起きるようになった。

なんでだろう？と思ってよくみてみたら、パスワードを再入力しようとパスワードのフォームをクリックして再入力を始めたときに、 そのフォームにうまくフォーカスが合ってないのか外れるのか、 前のパスワード（間違ってるヤツ）を消して入力 or 上書きしてるつもりが、されていない印象。

オペレーションで気をつければいいものなんだけれど、フォームをクリックした時に、ちゃんと前のパスワードを消してからやったら大丈夫そう。

ただ、BackSpaceつかうと、フォーカスが合ってないと前のページに戻るアクションと誤認識してしまうのはなんとかならんものかな。

[satobe13]

YAPC2015に行ってきました。

メモ書いてるからわかるとおもいますが、 誰に言うでもなくこういうタイトルにしてみました。

メモ写し終わってないのにこれ書いたのは、行った感想を書いておきたかったから。技術的なところどうこうより、行ってどうだったとか、これおもしろかったとか、その辺を箇条書き。

何気にビッグサイト7Fは初めてなので、上りのエスカレーターのテンションあがった。

ノベルティにこんなにたくさんもらっていいのかやや不安だったけど、遠慮せずいただきます。ありがとうございます。特にトート。

Larry氏のトークの際に同時通訳用に無線機材を借りたんですが、本当にほぼ同時通訳というのもすごかったですが、マニアックな技術用語もしっかり通訳してたのは、twitterで賞賛浴びてるのを見てわかるとおりですごかった。

技術的なところはずーっと？？？を浮かべながらも、聴いてみてみてみたい試してみたいことが多くて楽しかった。

その中で一番刺さった言葉があった。「趣味プログラミング、してますか？」できてない。別のトークでもあったけど、業務に追われてできないのはもったいない。何とかするヒントをもらえたような、つかみ損ねたような。

無限コーヒー、おいしかったです。またどこかで飲めたら嬉しい。 何気にカップにエディタとか、お話とか書いてあったけど、じっくり読んでる時間がなかったのが残念。どこかにあがってるかな。

キーワード的にあちこちのトークで聞く言葉があった。どこでも使ってるものだったり、やってることだったり。使ってるものといったら、Macbook率の高いこと高いこと。まぁ、薄いし軽いし小さいノートPCだし、納得しつつもいいなー、と。

こういうの見たり聴いたりするのはやっぱり大事。アンテナの張り方わからないから余計にそう思う。アンテナ張れないなら直接観にいくしかない。

とりあえず、気になるものを片っ端から見れるよう、時間作ろう。perl6も触ってみたいし。

ロジックの書き方の意識的なところ。1つのメソッドに1つの機能。読みやすい、短いは正義。なかなか意識は難しいけどがんばろう。

そういえば、2日目のお弁当、あまってたみたいだけど、全部消費されたんだろうか。地味に気になる。

参加してた人に元同僚さんが何人かいたみたいなんだけど、そんなに会えなかったのは残念。その傍ら、LTでだけど、perlの宮川さんを生で観れたのはうれしかった。憧れるよりももっと遠いところの人だけど。

2日目のLTのmysqlの話。地味にやばいことだらけだから、後でスライド探しておかないと…。それとphpのサポート切れ。地味に心当たりがあるので、何とかしておかないと。

[satobe13]

YAPC 2015 メモ3

なるだけ忘れないうち、雑メモでもあれこれ書いておきたい。 YAPCはBlog書くまでがYAPCだって、エライ人が言ってた。

といってもBlogっぽいものやってないので、メモっぽいものに書いておく。実際メモの写しというか、すでにそうなってるのでこの際キニシナイ。

3つ目のトークは、はじめに行ったところが満席で聴けなかったので、それとは違うところへ。はじめに行ったところはここ。 http://yapcasia.org/2015/talk/show/94051590-fb11-11e4-a39d-8ab37d574c3a

聴いてきたところはここ。 ■HTTP/2時代のウェブサイト設計

http://yapcasia.org/2015/talk/show/dead6890-09b7-11e5-998a-67dc7d574c3a

多分、話すことが多かったからかめっちゃスピードが早くて、そもそも知識もアレなところでどんどんおいていかれるｗ

けど、HTTP1.1とHTTP2の違いというか、HTTP2になったらどんな変化があるのか。全部を理解できてないけど、少し残ってるものをメモっておく。

そもそもの話で応答速度というのは大事で、遅れるほどにクリックレートが下がる。なので、どれだけブラウザレベルでのレンダリング完了までの速度を上げれるかが大事になる。

バンド幅は年々増えているけれど、ページのロード完了の時間は実は増えていないという不思議がある。

レイテンシが小さいほどページロードは早くなる。が、レイテンシは小さくはならない！

HTTP1.1はページ内のコンテンツへの1つのリクエストが終わってから次をリクエストするという感じで多重性がない。 →実際はパイプラインというものがあるが、実質使えない。 　→リクエストの結果をクライアントがジャッジできないので、POSTリクエストについては再送ができないなどの問題があるため。

ならどうするか。

レイテンシに負けないプロトコルを作る。これがHTTP2。

HTTP2の特徴。バイナリプロトコルである。多重化ができる、など。

バイナリプロトコルになることで、 改ざんがしにくいので脆弱性を防ぐ。 →バイナリなので手打ちはできないが実はh2iというコマンドで変換できる。 データ量を減らす（圧縮できる）。 という効果がある。

またHTTP2は全通信データは、フレームに格納されるとか？ 全てヘッダでリクエスト・レスポンスを返す。

HTTP2では多重化通信ができる。 同時に100以上のリクエスト、 また任意のタイミングでリクエストを受け取ることができる。 レスポンスの順番も順番どおりでなく混ぜて受け取れる。

上述どおり、ヘッダを圧縮することで通信量が減る。 圧縮にはHPACKという圧縮定義を使用している。 →静的ハフマンなど3つくらいの圧縮技術を使用している。 →直前のリクエストと同じ内容の部分は使いまわしたり、定例句的な内容は省略できたりと。

リクエストの優先度制御ができる。重み付けができる。 これはクライアントが指定する。 が、たとえばブラウザによって制御方法がことなる。かなりばらばらでHTTP2にすることで早くなるものもあれば、逆に遅くなるものもある。

出力する順番をある程度考えて出すことができるサーバもある。これがH2Oというサーバ（宣伝） ただ、先述どおりでクライアント側の制御方法もアレなので、逆に遅くな（ｒｙ →たとえば、リクエストされるものを予想して先に投げておく。RFCではHTMLを先になげてからCSSなど、という順番が推奨されているが、そうするとレンダリングに必要なファイルがそろうまで時間がかかるので、先にこれらを投げておく。というもの。 ちなみにnghttpx, nghttpx2もできる。

このように高速化をすることで、小さいレスポンスが大量にあっても大丈夫で、レイテンシではなく、今度はバンド幅がネックになっていく予想。

そのため、現在のHTTP1.1での高速化の手法で、いくつか使われない手法が出てくる。 →アセットの結合（CSS spriteやasset pilelineなど）、ドメインシャーディング（ドメインを別にすることでリクエストを並列化する）

HTTP2を採用することで高速化 →ページビューがあがる！ 　→売り上げも上がる！！

HTTPSについては、Let’s encryptでそのうち証明書が無料で取れる？ https://letsencrypt.org/

おまけとして、 PFS対応のciphersuiteでもOKではない。 →起動しなおさないと鍵が変わらないので、そもそもこの鍵自体が漏れたらアウトという問題などがある。 →なのでsession ticketはそもそも切ったほうがよい。もしくはうまくこれを切り替えれる（＝起動しなおせる）仕組みを作る。

[satobe13]

YAPC 2015 メモ2

2つ目のトークを聞いたときのメモ。

■世界展開する大規模ウェブサービスのデプロイを支える技術

http://yapcasia.org/2015/talk/show/9ec2791c-05e5-11e5-81fa-79c97d574c3a

MiiverseというWiiやDSでのコミュニケーションサービスへのシステムのデプロイの手法について。

PCやスマホからの使用もできる。HTML5+CSS3でフロント作成。

ゲーム内からの投稿はライブラリ経由で。

ゲームハードからはアプリ経由でWEBを見せている？

遠いリージョンもあるし、サーバーも多い大規模の環境でのdeploy。

これらの開発やデータの監視などいろんなセクションで行っている。その中での同期について。 サーバはAWS。各リージョン相互で同期。 REST APIでの通信もあり。

このあたりのインフラについてはdevelopers summitでの資料に掲載とのこと。 今度探しておく。

同期するために使用しているのは Capistrano2系＋Git 成果物の配布はgit pull型

だが、場所によっては遠いとか、サーバが多すぎるのでGitサーバが重くなる。 →各リージョンでGit Slaveを立てる。Slaveはrsyncを定期実施。ここからpullする。定期同期にはlsyncdを使用してrsync。

sleep入れたり、gitリクエストの先などの調整をしてサーバの負荷軽減をはかっている。

各ロールごとにdeployする？

Mackerel →はてなのクラウド監視ツール？これを使って同期管理をしている。

一時的にEC2インスタンスを必要分立ち上げてdeployしてまた落としておく？

開発にはGitHub Enterpriseと自前のGitサーバを併用。なので別々にpushするとかの問題がある。 このため、GHEのmarge pull requestボタンを使わないように運用。 →HEADがずれてしまうため。

複数のGitリポジトリを同期したい。

そのためのツール →hesokuri：GoogleのGit同期ツール。止めれるタイミングが難しいので見送り。 →ghm：はてな製？こっちを使ってるが、リポジトリの数や、規模が大きいので同期完了するまでのにアクションされるとずれてしまう問題。 　→現在は同期完了のお知らせをSlackに投げるようにして運用。

新しいdeployツール（同期システム）を作成。

REST APIでコントロールできる？ Git同期、マスター昇格／スレーブ降格などのアクションもできるようにしている。

処理フロー？ (1)開発者がGHEにpush (2)GHEが同期システムに web hookでpushされた情報を送信。 (3)同期システムで同期するものを確認。同期システムで保持している情報から対象のGitサーバ、リポジトリをピックアップしてGHEからpull。 (4)対象の各Gitサーバに同期システムからpush。

ghmではシェルをくんで実施していたが、 こちらのシステムでは純粋にgitコマンドしかつかっていない（サーバのシステムコマンドのみ）

このサーバからしか配布処理はしていないので、何か詰まった場合などでもこのシステムを見ればOK。

新しいdeploy手法についての考察

gitを使う場所 deployに必要なものを全commitする よりよいpull型のdeployはないか

Consul + stretcherの組み合わせをサブシステムで使用中。 配布物を1つにまとめてS3などに保存。 マニフェストにdeployルールを書いてConsulのイベントで指定して配布。 オートスケールで最新状態を確保する。 配布を並行で実施できるのでこれをMiiverse本体でやりたいところ。

[satobe13]

YAPC 2015 メモ1

YAPC 2015に行ってきました。perlは使ってるけど初参加。

技術的な話についてはさっぱり自信がないので ついていけるかどうか不安でしたが、 やっぱり取り残されてるなー感はありながらも、 それなりに楽しく参加してました。あっという間の1日目でした。

満席で聞けなかったトークもあったのが残念でしたが。

そんなYAPCの備忘録です。 まとまりないので、内容についてはこちらのほうがいいですね。

https://twitter.com/hashtag/yapcasia?f=tweets&vertical=default&src=hash

どっかにまとめとか、会場ヒートマップとかあったけど、後で探しておきます。

開場時間ちょうどくらいについてOpeningで注意とか聞いてLarryWall氏のトークを拝聴。

やはり大きかったのはperl6のリリースの話。 ベータ（評価版？）がLarry氏の誕生日辺り？正式版が今年2015年のクリスマス辺りに出る予定とか？

基本的に自分はperlは上から順番に処理するインタプリタ認識なんだけれど、 perl6ではsignalの機能などで呼ばれたタイミングでアクションを起こしたりできるとか？

constantは再定義するとエラーになるけれど、perl6では変数確定のタイミングを変えることができるとか。関数型プログラミングだったか、そういうのが取り入れられるのかな？

my ($a, $b, $c) = 42 xx *; say $c; -> 42

正規表現の単語強化がされているそう。 マッチングのナンバリングのスタートが$1ではなく$0からになる。 ホワイトスペースがあることをしめすxオプションがデフォルトになる。

とかくロードオブザリングや小人物語？の話と絡めることが多かったな。 どなたかのツイートに合ったけれど、ジョジョ変換してくれると、多少わかったかな。。。

[satobe13]

3桁のカンマ区切りでの表示

phpでは number_formatという関数があって、それに数字を渡せば、カンマ区切りにして返してくれるんですが、perlにはそんなものはなさそう。

■number_format関数 http://phpspot.net/php/man/php/function.number-format.html

こういうやり方を使うそうな。

■数値3桁ごとにカンマで区切るには http://www.ksknet.net/perl/3.html ■Perlリファレンス http://wiki.stsd.info/perl/5pWw5a2X44KSM-ahgeOBlOOBqOOBq-OCq-ODs-ODnuOBp-WMuuWIh-OCiw.html $num = 100000000000000; 1 while $num =~ s/^([-+]?\d+)(\d\d\d)/$1,$2/; print "$num"; とか $num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; とか。

TemplateToolkitではすぐできるっぽい。同じperlなのになぜ。

■テンプレートツールキットマニュアル http://www.hakoniwa.net/tt/ ■TemplateToolkit http://template-toolkit.org/docs/manual/VMethods.html#section_lower [% MACRO number(n) GET n.chunk(-3).join(',') %] [% number(1234567) %] # 1,234,567