Perl \u7684 file handle \u53ca directory handle \u4e00\u5b9a\u662f global \u7684\uff0c\u7121\u6cd5\u5ba3\u544a\u6210 local<\/p>\n
\u4e00\u822c\u4f7f\u7528\u4e0a\u6c92\u6709\u5927\u554f\u984c\uff0c\u4f46\u662f\u7576\u7528\u5728\u905e\u8ff4\u5f0f\u547c\u53eb\u6642\uff0c\u5c31\u6703\u7522\u751f\u932f\u8aa4\u4e86\uff0c\u4e0b\u9762\u662f\u4e00\u500b\u628a\u76ee\u9304\u4e0b\u5305\u542b\u5b50\u76ee\u9304\u4e2d\u6240\u6709\u6a94\u6848\u5217\u51fa\u4f86\u7684 perl \u7a0b\u5f0f\uff0c\u63a1\u7528\u905e\u8ff4\u5f0f\u547c\u53eb\u3002<\/p>\n
\r\n#!\/usr\/bin\/perl\r\ndie \"Usage: $0 [directory]\\n\" unless @ARGV == 1;\r\ndie \"ERROR: $ARGV[0] is not a directory\\n\" unless -d $ARGV[0];\r\n&show_dir($ARGV[0]);\r\nexit;\r\nsub show_dir\r\n{\r\n my( $dir ) = @_;\r\n my( $fname );\r\n opendir( DIR, $dir );\r\n while( $fname = readdir(DIR) )\r\n {\r\n next if $fname eq '.' || $fname eq '..';\r\n if( -d \"$dir\/$fname\" ) {\r\n &show_dir(\"$dir\/$fname\");\r\n }\r\n else {\r\n print \"$dir\/$fname\\n\";\r\n }\r\n }\r\n closedir(DIR);\r\n}\r\n<\/pre>\n\u7531\u65bc DIR \u9019\u500b directory-handle \u6703\u88ab\u7576\u6210 global \u8b8a\u6578\uff0c\u56e0\u6b64\u9019\u6bb5\u7a0b\u5f0f\u6703\u51fa\u932f\uff0c\u7121\u6cd5\u5217\u51fa\u6240\u6709\u6a94\u6848\u3002<\/p>\n
\u89e3\u6c7a\u65b9\u6cd5\u662f\u628a DIR \u9019\u4e00\u500b directory-handle \u76f4\u63a5\u7528 $dir \u4f86\u4ee3\u66ff\uff0c\u9019\u6a23\u5728\u905e\u8ff4\u7684\u6642\u5019\u5c31\u4e0d\u6703\u56e0\u70ba\u91cd\u8907\u4f7f\u7528\u800c\u9020\u6210\u932f\u8aa4\u4e86\uff0c\u4e0b\u9762\u662f\u6539\u904e\u7684\u7a0b\u5f0f\uff1a<\/p>\n
\r\n#!\/usr\/bin\/perl\r\ndie \"Usage: $0 [directory]\\n\" unless @ARGV == 1;\r\ndie \"ERROR: $ARGV[0] is not a directory\\n\" unless -d $ARGV[0];\r\n&show_dir($ARGV[0]);\r\nexit;\r\nsub show_dir\r\n{\r\n my( $dir ) = @_;\r\n my( $fname );\r\n opendir( $dir, $dir );\r\n while( $fname = readdir($dir) )\r\n {\r\n next if $fname eq '.' || $fname eq '..';\r\n if( -d \"$dir\/$fname\" ) {\r\n &show_dir(\"$dir\/$fname\");\r\n }\r\n else {\r\n print \"$dir\/$fname\\n\";\r\n }\r\n }\r\n closedir($dir);\r\n}\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Perl \u7684 file handle \u53ca directory handle \u4e00\u5b9a\u662f global \u7684\uff0c\u7121\u6cd5\u5ba3\u544a […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"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":""},"categories":[10],"tags":[],"class_list":["post-58","post","type-post","status-publish","format-standard","hentry","category-language"],"views":3468,"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pubdi-W","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":88,"url":"https:\/\/dada.tw\/blog\/2008\/07\/30\/88\/","url_meta":{"origin":58,"position":0},"title":"Subversion pre-commit hook","author":"dada","date":"2008-07-30","format":false,"excerpt":"\u5f88\u591a\u4eba\u5beb\u5b8c\u7a0b\u5f0f\u8981 commit \u7684\u6642\u5019\u6703\u5077\u61f6\u4e0d\u5beb log\uff0c\u5c0e\u81f4\u6709\u6642\u5019\u8981\u8ffd\u554f\u984c\u6642\uff0c \u5f88\u96e3\u5f97\u77e5\u5230\u5e95\u5225\u4eba\u6539\u2026","rel":"","context":"\u5728\u300c\u8edf\u9ad4\u300d\u4e2d","block_context":{"text":"\u8edf\u9ad4","link":"https:\/\/dada.tw\/blog\/category\/comp\/software\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":69,"url":"https:\/\/dada.tw\/blog\/2007\/12\/24\/69\/","url_meta":{"origin":58,"position":1},"title":"Script: \u53d6\u5f97 FreeBSD CVSUP \u7684\u66f4\u65b0\u72c0\u614b","author":"dada","date":"2007-12-24","format":false,"excerpt":"\u9019\u662f\u4eca\u5e741\u6708\u5beb\u7684 script... \u7528\u4f86\u76e3\u63a7\u5404\u5927 FreeBSD CVSUP mirror \u7db2\u7ad9\u7684\u2026","rel":"","context":"\u5728\u300c\u8edf\u9ad4\u300d\u4e2d","block_context":{"text":"\u8edf\u9ad4","link":"https:\/\/dada.tw\/blog\/category\/comp\/software\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":18,"url":"https:\/\/dada.tw\/blog\/2005\/06\/23\/18\/","url_meta":{"origin":58,"position":2},"title":"eAccelerator – PHP \u7db2\u9801\u52a0\u901f\u53ca\u7de8\u78bc","author":"dada","date":"2005-06-23","format":false,"excerpt":"eAccelerator - PHP \u7db2\u9801\u52a0\u901f\u53ca\u7de8\u78bc\u8edf\u9ad4 http:\/\/eaccelerator.n\u2026","rel":"","context":"\u5728\u300c\u7a0b\u5f0f\u8a9e\u8a00\u300d\u4e2d","block_context":{"text":"\u7a0b\u5f0f\u8a9e\u8a00","link":"https:\/\/dada.tw\/blog\/category\/comp\/language\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":95,"url":"https:\/\/dada.tw\/blog\/2008\/11\/11\/95\/","url_meta":{"origin":58,"position":3},"title":"Mantis Mail Gateway (perl script)","author":"dada","date":"2008-11-11","format":false,"excerpt":"This is a simple Mantis Mail Gateway for mail-in t\u2026","rel":"","context":"\u5728\u300c\u8edf\u9ad4\u300d\u4e2d","block_context":{"text":"\u8edf\u9ad4","link":"https:\/\/dada.tw\/blog\/category\/comp\/software\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":15,"url":"https:\/\/dada.tw\/blog\/2006\/07\/25\/15\/","url_meta":{"origin":58,"position":4},"title":"\u4f7f\u7528 bcompiler \u4f86\u7de8\u8b6f\uff08\u52a0\u5bc6\uff09\u60a8\u7684 PHP \u539f\u59cb\u78bc","author":"dada","date":"2006-07-25","format":false,"excerpt":"Using bcomipler to compile (encode) your PHP scrip\u2026","rel":"","context":"\u5728\u300c\u7a0b\u5f0f\u8a9e\u8a00\u300d\u4e2d","block_context":{"text":"\u7a0b\u5f0f\u8a9e\u8a00","link":"https:\/\/dada.tw\/blog\/category\/comp\/language\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":45,"url":"https:\/\/dada.tw\/blog\/2005\/06\/05\/45\/","url_meta":{"origin":58,"position":5},"title":"\u5728 FreeBSD \u4e0b\u5b89\u88dd MySQL 4.1 …","author":"dada","date":"2005-06-05","format":false,"excerpt":"\u5728 FreeBSD \u4e0b\u9762\u7528 ports \u5b89\u88dd MySQL 4.1 \u5982\u679c\u4f60\u53ea\u8981\u7528 UTF-8 \u7684\u8a71\u5c31\u7b97\u2026","rel":"","context":"\u5728\u300c\u8edf\u9ad4\u300d\u4e2d","block_context":{"text":"\u8edf\u9ad4","link":"https:\/\/dada.tw\/blog\/category\/comp\/software\/"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"amp_enabled":true,"_links":{"self":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts\/58","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/comments?post=58"}],"version-history":[{"count":0,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/posts\/58\/revisions"}],"wp:attachment":[{"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/media?parent=58"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/categories?post=58"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dada.tw\/blog\/wp-json\/wp\/v2\/tags?post=58"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}