#!/usr/bin/env perl use v5.12; use warnings; $_ = 123456789; s/ (?<=[0-9]) # 前に1文字以上の数字があり (?=(?:[0-9]{3})+ # 後ろに3文字の数字のセットが1個以上あり $) # 後ろに余計なものが続かない位置にマッチ /,/gx; # マッチした位置にカンマを…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。