{"version":"1.0","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","image_url":null,"author_url":"https://blog.hatena.ne.jp/hiroyukim/","blog_url":"https://hiroyukim.hatenablog.jp/","height":"190","width":"100%","title":" perl \u6587\u5b57\u30b3\u30fc\u30c9","blog_title":" (\u30fd\u00b4\u03c9`)\u3000","description":"\u5168\u89d2\u30ab\u30ca\u306e\u5927\u6587\u5b57\u3060\u3051\u8a31\u53ef\u3057\u305f\u304b\u3063\u305f\u306e\u3067\u6b63\u898f\u8868\u73fe\u3092\u4f5c\u3063\u305f\u3002 use Jcode; my $hoge = Jcode->new(\"\u30ab\u30ca\")->euc; my $zkatakana_omozi = '(?:\\xA5[\\xA2\\xA4\\xA6\\xA8\\xAA-\\xC2\\xC4-\\xE2\\xE4\\xE6\\xE8-\\xED\\xEF\\xF2-\\xF4])'; if( $hoge =~ /^($zkatakana_omozi)+$/ ) { warn \"ok\"; } \u4e0b\u8a18\u306e\u30b5\u30a4\u30c8\u69d8\u306b\u304a\u4e16\u8a71\u306b\u306a\u308a\u307e\u3057\u305f\u3002http://www.din.or.jp/~ohzaki/perl.htm#Character http:/\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiroyukim.hatenablog.jp%2Fentry%2F20070411%2F1176273251\" title=\" perl \u6587\u5b57\u30b3\u30fc\u30c9 -  (\u30fd\u00b4\u03c9`)\u3000\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":[],"type":"rich","author_name":"hiroyukim","url":"https://hiroyukim.hatenablog.jp/entry/20070411/1176273251","published":"2007-04-11 15:34:11"}