エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
正規表現で、ソーシャルブックマーカブルな URL かそうでないかを判定する : にぽたん研究所
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
正規表現で、ソーシャルブックマーカブルな URL かそうでないかを判定する : にぽたん研究所
#!perl use strict; use warnings; use Perl6::Say; my $PRIV_IP_RE = qr{^https?:// \b(?: 10\.(?:\d\d... #!perl use strict; use warnings; use Perl6::Say; my $PRIV_IP_RE = qr{^https?:// \b(?: 10\.(?:\d\d?|1\d\d|2(?:[0-4]\d|5[0-5]))| # class A 172\.(?:1[6-9]|2\d|3[01])| # class B 192\.168 # class C ) \.(?:\d\d?|1\d\d|2(?:[0-4]\d|5[0-5])) \.(?:\d\d?|1\d\d|2(?:[0-4]\d|5[0-5]))\b }xi; for my $url (qw(http://10.10.2.60/ http://www.google.com/)) { say "$url IS " . ($url =~ $PRIV_IP_RE ? "NOT BOOKMARKABLE" :