国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

Perl實現遍歷目錄例子

2020-10-31 15:05:11
字體:
來源:轉載
供稿:網友

環境為windos,需要注意的兩點:

1、默認activePerl下的采用的編碼是gbk,所以需要將字符串轉為gbk才不會顯示亂碼
2、遍歷文件目錄時,需要排除特殊的目錄.和..

完整的代碼:

復制代碼 代碼如下:

#!/usr/bin/perl
 use strict;
 use warnings;
 use Encode qw/from_to/;
 
 my $path = "e:/CSS Design";
 my $filecount = 0;
 
 sub parse_env {   
     my $path = $_[0]; #或者使用 my($path) = @_; @_類似javascript中的arguments
     my $subpath;
     my $handle;
 
     if (-d $path) {#當前路徑是否為一個目錄
         if (opendir($handle, $path)) {
             while ($subpath = readdir($handle)) {
                 if (!($subpath =~ m/^/.$/) and !($subpath =~ m/^(/./.)$/)) {
                     my $p = $path."/$subpath";
 
                     if (-d $p) {
                         parse_env($p);
                     } else {
                         ++$filecount;
                         print $p."/n";
                     }
                 }               
             }
             closedir($handle);           
         }
     }
 
     return $filecount;
 }
 
 my $count = parse_env $path;
 my $str = "文件總數:".$count;
 from_to($str, "utf8", "gbk");
 
 print $str;

運行效果圖:

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 莎车县| 岢岚县| 南通市| 鄱阳县| 留坝县| 蛟河市| 麻城市| 望城县| 新和县| 焦作市| 弋阳县| 绥化市| 岗巴县| 阿克陶县| 汝阳县| 临颍县| 寿宁县| 青冈县| 隆尧县| 靖远县| 翁牛特旗| 新沂市| 体育| 临邑县| 廊坊市| 江北区| 青河县| 涡阳县| 茶陵县| 三门峡市| 普洱| 英德市| 广安市| 永城市| 安庆市| 琼结县| 杭锦旗| 大关县| 永登县| 静安区| 静安区|