数字を3桁ごとにカンマで区切る - Perlリファレンス
$num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; 正規表現の拡張構文を使って1行でできます。 まず、 (\d{1,3}) が、数字1-3桁にマッチ。 一致した場合は$1はこの部分の数値となる。 (?=(?:\d{3})+(?!\d)) 続く部分は拡張構文なので一致の確認は行うが置換対象にはならない。 拡張構文の中にさらに拡張構文が入ってます。 (?:\d{3})+ 数字3の倍数桁に一致。 (?!\d) 続く文字が数字以外。 例 $num=1234567890; $num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; 一番最後の文字が数字以外に一致ですので、末尾のみ一致する。 その前が数字3桁の倍数890、567、234、に一致。 その前の1-3桁の数字は「1」ですので、$1==1。 これで「1」が「1,」に置換される
正規表現だけで3桁ごとカンマで区切る - EAGLE 雑記
元ネタ: http://d.hatena.ne.jp/mzp/20090725/comma 数字が前にあって，3桁の数字のセットが最後まで続いている zero-width な文字をカンマに置換しています． #!/usr/bin/perl use strict; use warnings; use Data::Dumper; sub sep_by_comma($;$) { my ($n,$sep) = @_; $sep ||= ','; $n =~ s/(?<=\d)(?=(\d{3})+$)/$sep/g; $n; } print Dumper(sep_by_comma(1234)); print Dumper(sep_by_comma(12345, '_')); print Dumper(sep_by_comma(-1234567));
perlre - Perlの正規表現
NAME DESCRIPTION Regular Expressions Backtracking Version 8 Regular Expressions WARNING on \1 vs $1 Repeated patterns matching zero-length substring Creating custom RE engines SEE ALSO NAME perlre - Perlの正規表現 DESCRIPTION このページでは、Perlの正規表現の構文を説明します。マッチング演算 子中での正規表現の使い方や様々なサンプルについては、] perlopにあるm//、s/// qr//、?? を参照してください。 マッチング操作は様々な修飾子(modifier)を持つことができます。正規 表現中に置かれ、解釈される修飾子には以下のようなものがあります。 操作の振る舞いを
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
regexp - yet another fix for dodgy UTF-8 : 404 Blog Not Found
2007年02月14日21:30 カテゴリLightweight Languages regexp - yet another fix for dodgy UTF-8 他の言語にも移植しやすいようにrefactorしてみました。 subtech - Bulknews::Subtech - Fix dodgy utf-8 bytes すでに utf-8 なバイト列を latin-1 と解釈して utf-8 に二重エンコードすることで起きる文字化け（を表現する短い言葉ってないのかな）を直すコード。sub fix_utf8 { my $bytes = shift; utf8::encode($bytes) if utf8::is_utf8($bytes); $bytes =~ s{ ([\xC2\xC3])([\x80-\xBF]) }{ chr( (ord($1) << 6 & 0xff) |
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
B型SEの日記: 【Perl】数値のカンマ整形（数値フォーマット）
