{"id":655,"date":"2010-04-30T06:26:25","date_gmt":"2010-04-29T21:26:25","guid":{"rendered":"http:\/\/mk.miko.jp\/blog\/?p=655"},"modified":"2011-03-05T13:17:06","modified_gmt":"2011-03-05T04:17:06","slug":"activeperl%e3%81%aeglob%e3%81%ae%e6%82%a9%e3%81%bf%e3%82%92%e3%81%a9%e3%81%86%e3%81%ab%e3%81%8b%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"http:\/\/mk.miko.jp\/blog\/archives\/655","title":{"rendered":"ActivePerl\u306eglob\u306e\u60a9\u307f\u3092\u3069\u3046\u306b\u304b\u3059\u308b"},"content":{"rendered":"<p>\u3000\u672a\u3060\u306bPerl\u4f7f\u3044\u3067\u3042\u308b\u3002<br \/>\n\u3000\u5225\u306b\u5927\u597d\u304d\u306a\u8a33\u3067\u306f\u306a\u3044\u3002\u4f3c\u305f\u3088\u3046\u306a\u3053\u3068\u306e\u51fa\u6765\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u8a00\u8a9e\u3092\u4ed6\u306b\u899a\u3048\u3066\u306a\u3044\u3060\u3051\u3060\u3002<br \/>\n\u3000\u4eca\u304b\u3089\u30a2\u30ec\u7cfb\u3092\u65b0\u3057\u304f\u899a\u3048\u308b\u306a\u3089\u3001\u307e\u3042\u3001Python\u306a\u306e\u304b\u306a\u3002PHP\u3082\u4fbf\u5229\u305d\u3046\u3060\u3002\u3069\u3061\u3089\u3082\u5225\u306b\u3055\u307b\u3069\u82e6\u52b4\u305b\u305a\u899a\u3048\u3089\u308c\u305d\u3046\u306a\u7518\u3044\u6c17\u6301\u3061\u306f\u82e5\u5e72\u3042\u308b\u304c\u3001\u5fc5\u8981\u306b\u8feb\u3089\u308c\u306a\u3044\u3068\u3044\u307e\u3044\u3061\u306a\u3042\u3002<br \/>\n\u3000\u307e\u3042\u305d\u308c\u306b\u3001\u5927\u597d\u304d\u3063\u3066\u307b\u3069\u3067\u306f\u306a\u3044\u3051\u3069\u3001\u6c17\u3092\u629c\u3044\u3066\u66f8\u304d\u6368\u3066\u3084\u3059\u3044Perl\u306e\u7de9\u3055\u306f\u7d50\u69cb\u597d\u304d\u3060\u3002Larry Wall\u306e\u30a2\u30ec\u3063\u3077\u308a\u3082\u5272\u3068\u3002<\/p>\n<p>\u3000\u3067\u3001ActivePerl\u3092\u4f7f\u3063\u3066\u3044\u308b\u3002\u307e\u3042Windows\u3060\u3057\u3002\u3060\u3044\u3076\u6614\u306b\u5165\u308c\u305f\u3063\u304d\u308a\u3060\u304c\u3001\u3081\u3093\u3069\u304f\u3055\u3044\u306e\u3067\u66f4\u65b0\u3057\u3066\u306a\u3044\u3002\u5225\u306b\u9bd6\u3067\u3082\u306a\u3044\u3057\u5e73\u6c17\u3060\u308d\u3046\u30025.10.0\u306a\u3089\u305d\u3053\u305d\u3053\u65b0\u3057\u3044\u65b9\u3060\u308d\u3046\u3057\u3002<br \/>\n\u3000\u305d\u3057\u3066\u3001\u66f8\u304d\u3063\u3071\u6c17\u5473\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306a\u3069\u3067\u30d0\u30ea\u30d0\u30ea\u4f7f\u3046\u306e\u3060\u304c\u3001glob\u304c\u3069\u3046\u3082\u30d0\u30b0\u3063\u3066\u308b\u3002File::Glob::Windows\u3068\u304b\u5165\u308c\u3066\u3082\u99c4\u76ee\u3002\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u90e8\u306b\u7279\u5b9a\u306e\u6587\u5b57\u3092\u542b\u3080glob\u3092\u639b\u3051\u308b\u3068\u304a\u304b\u3057\u304f\u306a\u308b\u3002\u3069\u3046\u305b\u30de\u30eb\u30c1\u30d0\u30a4\u30c8\u306e\u554f\u984c\u3060\u308d\u3046\u3002\u65b0\u3057\u3044\u5974\u306a\u3089\u76f4\u3063\u3066\u308b\u304b\u3082\u3057\u308c\u3093\u3051\u3069\u3002<br \/>\n\u3000\u3093\u3067\u3001\u3081\u3093\u3069\u304f\u3055\u3044\u3093\u3067\u3001\u3069\u3046\u306b\u304b\u3057\u3088\u3046\u3068\u8a66\u3057\u305f\u3002\u3069\u3046\u306b\u304b\u306a\u3063\u305f\u3002DirHandle\u306a\u308aopendir\u306a\u308a\u3067\u4e00\u62ecread\u3057\u305f\u306e\u3092grep\u3067\u3082\u3059\u308c\u3070\u3044\u3044\u3088\u3046\u3060\u3002\u3081\u3067\u305f\u3057\u3081\u3067\u305f\u3057\u3002\u5177\u4f53\u7684\u306b\u306f\u3001<\/p>\n<pre class=\"brush:perl\">sub glob_re ($$) {\r\n  my ( $dir, $re ) = @_;\r\n  my $dh = new DirHandle $dir;\r\n  return grep \/$re\/, $dh->read;\r\n}<\/pre>\n<p>\u3053\u3093\u306a\u611f\u3058\u304b\u3002\u547c\u3073\u51fa\u3057\u306f<\/p>\n<pre class=\"brush:perl\">glob_re '.', qr\/\\.txt$\/i;<\/pre>\n<p>\u307f\u305f\u3044\u306a\u3002\u52d5\u4f5c\u78ba\u8a8d\u3057\u306a\u3044\u307e\u307e\u3060\u3089\u3060\u3089\u66f8\u3044\u3066\u308b\u304c\u3001\u6c17\u6301\u3061\u304c\u4f1d\u308f\u308c\u3070\u3044\u3044\u306e\u3067\u306f\u306a\u304b\u308d\u3046\u304b\u3002\u3055\u3063\u304d\u4f3c\u305f\u3088\u3046\u306a\u30b3\u30fc\u30c9\u66f8\u3044\u3066\u52d5\u3044\u305f\u3057\u3055\u3002\u3064\u30fc\u304b\u6b63\u898f\u8868\u73feglob\u306a\u3093\u3066\u65e2\u88fd\u30e2\u30b8\u30e5\u30fc\u30eb\u3042\u308a\u305d\u3046\u306a\u304f\u3089\u3044\u666e\u901a\u306b\u6b32\u3057\u3044\u95a2\u6570\u3060\u3088\u306a\u3002\u307e\u3042\u3044\u3044\u304b\u3001\u77ed\u3044\u304b\u3089\u81ea\u4f5c\u3067\u3082\u3002Perl\u3060\u3057\u3002<\/p>\n<p>\u3000\u3042\u3042\u3001\u3044\u304b\u3093\u3002\u4eca\u306f5.10\u7528\u30b9\u30af\u30ea\u30d7\u30c8\u3092use utf8\u3067UTF-8\u5bfe\u5fdc\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u3067\u66f8\u3044\u3066\u308b\u304b\u3089\u3001Windows\u3060\u3068\u30a8\u30f3\u30b3\u30fc\u30c9\u639b\u3051\u306a\u3044\u3068\u65e5\u672c\u8a9e\u30d5\u30a1\u30a4\u30eb\u540d\u3067\u3084\u3070\u304b\u3063\u305f\u3093\u3060\u3088\u306a\u3002\u3064\u30fc\u304b\u5143\u3005\u305d\u308c\u304c\u76ee\u7684\u3058\u3083\u306a\u3044\u304b\uff08\u7b11\uff09\u3002\u3064\u3044\u3067\u306bglob\u4e92\u63db\u306b\u3059\u308b\u306a\u3089<code>.<\/code>\u3068<code>..<\/code>\u3082\u9664\u5916\u3057\u3066\u30d1\u30b9\u3082\u4ed8\u3051\u306a\u3044\u3068\u306a\u3002<\/p>\n<pre class=\"brush:perl\">sub glob_re ($$) {\r\n  my ( $dir, $re ) = @_;\r\n  my $dh = new DirHandle encode 'cp932', $dir;\r\n  return map { File::Spec->canonpath( File::Spec->catfile( $dir, $_ ) ) } grep \/$re\/, File::Spec->no_upwards( map { decode 'cp932', $_ } $dh->read );\r\n}<\/pre>\n<p>\u3053\u3046\u3067\u3059\u306d\u3002\u591a\u5206\u3002\u52d5\u4f5c\u78ba\u8a8d\u3057\u3066\u306a\u3044\u3051\u3069\u3002\u3064\u30fc\u304b\u3069\u3093\u3069\u3093\u66f8\u304d\u6368\u3066\u81ed\u304c\u3002\u307e\u3042\u3044\u3044\u304b\u3001Perl\u3060\u3057\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3000\u672a\u3060\u306bPerl\u4f7f\u3044\u3067\u3042\u308b\u3002 \u3000\u5225\u306b\u5927\u597d\u304d\u306a\u8a33\u3067\u306f\u306a\u3044\u3002\u4f3c\u305f\u3088\u3046\u306a\u3053\u3068\u306e\u51fa\u6765\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u8a00\u8a9e\u3092\u4ed6\u306b\u899a\u3048\u3066\u306a\u3044\u3060\u3051\u3060\u3002 \u3000\u4eca\u304b\u3089\u30a2\u30ec\u7cfb\u3092\u65b0\u3057\u304f\u899a\u3048\u308b\u306a\u3089\u3001\u307e\u3042\u3001Python\u306a\u306e\u304b\u306a\u3002PHP\u3082\u4fbf\u5229\u305d\u3046\u3060\u3002\u3069\u3061\u3089\u3082\u5225\u306b\u3055\u307b\u3069\u82e6 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[4],"tags":[],"_links":{"self":[{"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/posts\/655"}],"collection":[{"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/comments?post=655"}],"version-history":[{"count":0,"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/posts\/655\/revisions"}],"wp:attachment":[{"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/media?parent=655"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/categories?post=655"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/mk.miko.jp\/blog\/wp-json\/wp\/v2\/tags?post=655"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}