{"id":1270,"date":"2013-03-06T06:00:00","date_gmt":"2013-03-05T21:00:00","guid":{"rendered":"http:\/\/www.tokyostyling.com\/pc\/?p=1270"},"modified":"2013-03-05T23:54:08","modified_gmt":"2013-03-05T14:54:08","slug":"%e7%b0%a1%e5%8d%98%e4%be%bf%e5%88%a9%ef%bc%81perl%e3%81%a7%e4%bd%8f%e6%89%80%e3%83%81%e3%82%a7%e3%83%83%e3%82%af%e3%81%ae%e5%b7%bb","status":"publish","type":"post","link":"http:\/\/www.tokyostyling.com\/pc\/archives\/1270","title":{"rendered":"\u7c21\u5358\u4fbf\u5229\uff01Perl\u3067\u4f4f\u6240\u30c1\u30a7\u30c3\u30af\u306e\u5dfb"},"content":{"rendered":"<p><a href=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305.png\" rel=\"lightbox[1270]\"><img loading=\"lazy\" decoding=\"async\" data-attachment-id=\"1271\" data-permalink=\"http:\/\/www.tokyostyling.com\/pc\/archives\/1270\/screen20310305\" data-orig-file=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305.png\" data-orig-size=\"640,464\" data-comments-opened=\"1\" data-image-meta=\"{&quot;aperture&quot;:&quot;0&quot;,&quot;credit&quot;:&quot;&quot;,&quot;camera&quot;:&quot;&quot;,&quot;caption&quot;:&quot;&quot;,&quot;created_timestamp&quot;:&quot;0&quot;,&quot;copyright&quot;:&quot;&quot;,&quot;focal_length&quot;:&quot;0&quot;,&quot;iso&quot;:&quot;0&quot;,&quot;shutter_speed&quot;:&quot;0&quot;,&quot;title&quot;:&quot;&quot;}\" data-image-title=\"screen20310305\" data-image-description=\"\" data-image-caption=\"\" data-medium-file=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305-300x217.png\" data-large-file=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305.png\" src=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305-300x217.png\" alt=\"screen20310305\" width=\"300\" height=\"217\" class=\"alignnone size-medium wp-image-1271\" srcset=\"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305-300x217.png 300w, http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305-413x300.png 413w, http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/03\/screen20310305.png 640w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n<p>\u5fc5\u8981\u306b\u8feb\u3089\u308c\u3066\u3001\u4f4f\u6240\u30c1\u30a7\u30c3\u30af\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u63a2\u3057\u305f\u3082\u306e\u306e\u3001\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u4f5c\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3088<br \/>\n\u300c\u533a\u300d\u306e\u6271\u3044\u304c\u5384\u4ecb\u3060\u3063\u305f\u4ee5\u5916\u306f\u7c21\u5358\u306a\u306e\u3067\u3057\u305f<\/p>\n<p>\u306a\u3093\u304b\u6b63\u898f\u8868\u73fe\u3067\u3059\u3093\u306a\u308a\u51fa\u6765\u305d\u3046\u3060\u3051\u3069\u3001\u307e\u3042\u3001\u52d5\u3044\u305f\u306e\u3067\u3001\u3053\u308c\u3067\u826f\u3057w<\/p>\n<p>\u30bd\u30fc\u30b9\u306f\u3001\u3053\u3061\u3089<\/p>\n<pre class=\"brush: perl; title: ; notranslate\" title=\"\">\r\nuse strict;\r\nuse warnings;\r\nuse utf8;\r\nbinmode STDOUT, &quot;:encoding(sjis)&quot;;#OS\u306b\u3088\u308a\u5909\u66f4\r\n\r\n#\u653f\u4ee4\u6307\u5b9a\u90fd\u5e02\r\nmy $seirei='\u6a2a\u6d5c|\u540d\u53e4\u5c4b|\u4eac\u90fd|\u5927\u962a|\u795e\u6238|\u5317\u4e5d\u5dde|\u672d\u5e4c|\u5ddd\u5d0e|\u798f\u5ca1|\u5e83\u5cf6|\u4ed9\u53f0|\u5343\u8449|\u3055\u3044\u305f\u307e|\u9759\u5ca1|\u583a|\u65b0\u6f5f|\u6d5c\u677e|\u5ca1\u5c71|\u76f8\u6a21\u539f|\u718a\u672c';\r\n\r\n#\u30b5\u30f3\u30d7\u30eb\r\nmy @sample =(\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11\u7687\u5c45',\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u75301\u7687\u5c45',\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11',\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\u7687\u5c45',\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\uff11\u7687\u5c45',\r\n'\u6771\u4eac\u90fd\u5343\u4ee3\u7530\uff11\u7687\u5c45',\r\n'\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11\u7687\u5c45',\r\n'\u6771\u4eac\u90fd\u516b\u738b\u5b50\u5e02\u516b\u738b\u5b50\uff12',\r\n'\u6771\u4eac\u90fd\u516b\u738b\u5b50\u5e02\uff12',\r\n'\u6771\u4eac\u90fd\u516b\u738b\u5b50\uff12',\r\n'\u516b\u738b\u5b50\u5e02\u516b\u738b\u5b50\uff12',\r\n'\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6\uff11',\r\n'\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6',\r\n'\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\uff11',\r\n'\u5927\u962a\u5e9c\u5927\u962a\u5e02\u4e2d\u30ce\u5cf6\uff11',\r\n'\u5927\u962a\u5e9c\u5317\u533a\u4e2d\u30ce\u5cf6\uff11',\r\n'\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6\uff11',\r\n'\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\u6cc9\u5d0e\uff11',\r\n'\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\u6cc9\u5d0e',\r\n'\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\uff11',\r\n'\u6c96\u7e04\u770c\u6cc9\u5d0e\uff11',\r\n'\u6c96\u7e04\u5e02\u6cc9\u5d0e\uff11',\r\n);\r\n\r\n#\u30b5\u30f3\u30d7\u30eb\u30c6\u30b9\u30c8\r\nforeach my $tmp(@sample){\r\n\tprint &amp;chkadr($tmp).&quot;\\n&quot;;\r\n}\r\n\r\n#\r\n#\u4f4f\u6240\u30c1\u30a7\u30c3\u30af\r\n#\r\nsub chkadr{\r\n\t#\u5f15\u6570\u4ee3\u5165\r\n\tmy $add = $_&#x5B;0];\r\n\tmy $flag=0;\r\n\r\n\t#\u533a\u304c\u542b\u307e\u308c\u308b\u5834\u5408\r\n\tif($add =~\/\u533a\/){\r\n\t\tif($add !~\/(.+\u90fd.+\u533a\\D+|.+\u5e02.+\u533a\\D+)\/){$flag=1;}\r\n\t}\r\n\t\r\n\t#\u90fd\u9053\u5e9c\u770c\u5e02\u533a\u753a\u6751\u69cb\u6210\u30c1\u30a7\u30c3\u30af\r\n\tif($add !~\/.+(\u90fd|\u9053|\u5e9c|\u770c).+(\u5e02|\u533a|\u753a|\u6751)\\D+\\d+\/){$flag=2;}\r\n\t\r\n\t#\u653f\u4ee4\u6307\u5b9a\u90fd\u5e02\u30c1\u30a7\u30c3\u30af\r\n\tif($add =~\/.+($seirei)\u5e02\/){\r\n\t\t\tif($add !~\/\u533a\/){$flag=3;}\r\n\t}\r\n\tif($flag==0){\r\n\t\treturn &quot;\u25cb\uff1a&quot;.$add;\r\n\t}else{\r\n\t\treturn &quot;\u00d7\uff1a&quot;.$add;\r\n\t}\r\n}\r\n\r\n<\/pre>\n<p>\u7d50\u679c\u306f\u3001\u3053\u3061\u3089<\/p>\n<pre class=\"brush: plain; title: ; notranslate\" title=\"\">\r\n\u25cb\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11\u7687\u5c45\r\n\u25cb\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u75301\u7687\u5c45\r\n\u25cb\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11\r\n\u00d7\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\u7687\u5c45\r\n\u00d7\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a\uff11\u7687\u5c45\r\n\u00d7\uff1a\u6771\u4eac\u90fd\u5343\u4ee3\u7530\uff11\u7687\u5c45\r\n\u00d7\uff1a\u5343\u4ee3\u7530\u533a\u5343\u4ee3\u7530\uff11\u7687\u5c45\r\n\u25cb\uff1a\u6771\u4eac\u90fd\u516b\u738b\u5b50\u5e02\u516b\u738b\u5b50\uff12\r\n\u00d7\uff1a\u6771\u4eac\u90fd\u516b\u738b\u5b50\u5e02\uff12\r\n\u00d7\uff1a\u6771\u4eac\u90fd\u516b\u738b\u5b50\uff12\r\n\u00d7\uff1a\u516b\u738b\u5b50\u5e02\u516b\u738b\u5b50\uff12\r\n\u25cb\uff1a\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6\uff11\r\n\u00d7\uff1a\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6\r\n\u00d7\uff1a\u5927\u962a\u5e9c\u5927\u962a\u5e02\u5317\u533a\uff11\r\n\u00d7\uff1a\u5927\u962a\u5e9c\u5927\u962a\u5e02\u4e2d\u30ce\u5cf6\uff11\r\n\u00d7\uff1a\u5927\u962a\u5e9c\u5317\u533a\u4e2d\u30ce\u5cf6\uff11\r\n\u00d7\uff1a\u5927\u962a\u5e02\u5317\u533a\u4e2d\u30ce\u5cf6\uff11\r\n\u25cb\uff1a\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\u6cc9\u5d0e\uff11\r\n\u00d7\uff1a\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\u6cc9\u5d0e\r\n\u00d7\uff1a\u6c96\u7e04\u770c\u6c96\u7e04\u5e02\uff11\r\n\u00d7\uff1a\u6c96\u7e04\u770c\u6cc9\u5d0e\uff11\r\n\u00d7\uff1a\u6c96\u7e04\u5e02\u6cc9\u5d0e\uff11\r\n<\/pre>\n<p>\u3010\u51fa\u6765\u308b\u3053\u3068\u3011<br \/>\n\u30fb\u30c1\u30a7\u30c3\u30af\u5185\u5bb9\u306f\u90fd\u9053\u5e9c\u770c\u2192\u5e02\u533a\u753a\u6751\u2192\u5b57\u2192\u756a\u5730\u306e\u9806\u3067\u30c1\u30a7\u30c3\u30af<br \/>\n\u30fb\u756a\u5730\u30c1\u30a7\u30c3\u30af\u3042\u308a<br \/>\n\u30fb\u653f\u4ee4\u6307\u5b9a\u90fd\u5e02\u306e\u533a\u30c1\u30a7\u30c3\u30af\u3042\u308a<br \/>\n\u30fb\u30a2\u30d1\u30fc\u30c8\u540d\u304c\u4ed8\u3044\u3066\u3044\u3066\u3082OK<br \/>\n\u30fb\u756a\u5730\u306e\u534a\u89d2\u3001\u5168\u89d2\u306b\u3082\u5bfe\u5fdc<br \/>\n\u30fb\u90e1\u304c\u629c\u3051\u3066\u3044\u3066\u3082OK<\/p>\n<p>\u5b9f\u5bb6\u304c\u300c\u5143\u300d\u90e1\u306a\u306e\u3067\u3001\u9759\u5ca1\u770c\u821e\u962a\u753a\u306a\u3069\u90e1\u3092\u629c\u304b\u3057\u305f\u66f8\u304d\u65b9\u3092\u77e5\u3063\u3066\u304a\u308a\u3001\u305d\u308c\u306b\u3082\u5bfe\u5fdc\u3067\u304d\u308b\u306e\u304c\u5b9f\u7528\u7684\u306a\u306e\u3067\u3057\u305f\uff57<\/p>\n<p>\u7c21\u5358\u3001\u304b\u3093\u305f\u3093<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5fc5\u8981\u306b\u8feb\u3089\u308c\u3066\u3001\u4f4f\u6240\u30c1\u30a7\u30c3\u30af\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u63a2\u3057\u305f\u3082\u306e\u306e\u3001\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u4f5c\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3088 \u300c\u533a\u300d\u306e\u6271\u3044\u304c\u5384\u4ecb\u3060\u3063\u305f\u4ee5\u5916\u306f\u7c21\u5358\u306a\u306e\u3067\u3057\u305f \u306a\u3093\u304b\u6b63\u898f\u8868\u73fe\u3067\u3059\u3093\u306a\u308a\u51fa\u6765\u305d\u3046\u3060\u3051\u3069\u3001\u307e\u3042\u3001\u52d5\u3044\u305f\u306e\u3067\u3001\u3053\u308c\u3067\u826f\u3057w \u30bd\u30fc\u30b9\u306f\u3001 [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":2245,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false},"version":2}},"categories":[5],"tags":[],"class_list":["post-1270","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-web"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"http:\/\/www.tokyostyling.com\/pc\/wp-content\/uploads\/2013\/11\/screen20310305-300x217.png","jetpack_shortlink":"https:\/\/wp.me\/p1TwBu-ku","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/posts\/1270","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/comments?post=1270"}],"version-history":[{"count":4,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/posts\/1270\/revisions"}],"predecessor-version":[{"id":1273,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/posts\/1270\/revisions\/1273"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/media\/2245"}],"wp:attachment":[{"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/media?parent=1270"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/categories?post=1270"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tokyostyling.com\/pc\/wp-json\/wp\/v2\/tags?post=1270"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}