エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
配列の要素をユニークにする! - 小池啓仁 ヒロヒト応援ブログ By はてな
Linuxのuniqコマンドみたいに配列変数の要素をユニークにしたい場合があります。 しかし、標準関数には... Linuxのuniqコマンドみたいに配列変数の要素をユニークにしたい場合があります。 しかし、標準関数には残念ながら…そのような関数はありません。 またしかし、柔軟なPerlでは、ちょっと工夫すると既存の関数で出来てしまうのです。 ◆サンプル use strict; use warnings; my @data = ('AAA', 'BBB', 'CCC', 'BBB', 'DDD', 'AAA', 'DDD', 'EEE'); my @uniq = do { my %wk; grep { !$wk{$_}++ } @data }; local $, = ','; print @uniq; ◆解説 do関数は、引数のブロックを実行して、最後に評価した式の値を返します。 grep関数は、引数の配列を検索して条件が真のときにその要素を返します。 今回、grep関数で配列を検索して、初回マッチで
2009/11/18 リンク