Client ChallengeA required part of this site couldn’t load. This may be due to a browser extension, network issues, or browser settings. Please check your connection, disable any ad blockers, or try using a different browser.
[Perl]Regexp::Assemble を使って連想配列のキーに正規表現を使う | ブログが続かないわけ
連想配列のキーに正規表現を使いたくなることってあるじゃない。 my @strings = qw/ カナダ インド イギリス ニッポン ルーマニア チュウゴク イタリア スペイン ウクライナ アルゼンチン アメリカ /;こんな配列があるとする。これをア行、カ行...などにグループ分けして、例えば次のような出力を得たい場合を例にしてみよう。 カ行: カナダ ア行: インド ア行: イギリス ナ行: ニッポン ラ行: ルーマニア タ行: チュウゴク ア行: イタリア サ行: スペイン ア行: ウクライナ ア行: アルゼンチン ア行: アメリカ 一番すぐ思いつきそうなのが次のコードかもしれない。 for my $str (@strings) { print &grouping($str), ": $str¥n"; } sub grouping { return 'ア行' if(m/^[ア-オ]/)
![[Perl]Regexp::Assemble を使って連想配列のキーに正規表現を使う | ブログが続かないわけ](https://cdn-ak-scissors.b.st-hatena.com/image/square/e711137c5f739af6490f01deec26f9629d707837/height=288;version=1;width=512/http%3A%2F%2Fecx.images-amazon.com%2Fimages%2FI%2F51aB9g91ENL._SL160_.jpg)
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
