zoukankan      html  css  js  c++  java
  • perl进行目录的查看

    可用如下的PERL程序进行目录的浏览

    执行如:

    perl getdir.py D:\\设计模式Delphi版

    #getdir.py

    sub listfile{
            my $dir = shift @_;
            opendir DH, $dir;
            foreach my $file (readdir DH){
                    next if $file eq "." or $file eq "..";

                    $file = "$dir/$file";

                    if(-d $file){

                            &listfile($file);

                    }

                    else{

                            print $file . "\n";

                    }

            }

            return 1;

    }

    if(@ARGV!=1){
        print STDERR " program information \n";
        print STDERR " program usage \n";
        exit;
    }

    while(@ARGV){
        $dir = shift;
        &listfile($dir);
    }

  • 相关阅读:
    为公司转型做的一些准备——数据库设计技术
    jdbc多种实现方式
    JNuit
    JDBC初体验
    jsp原理
    jsp登陆
    jsp homework(*)
    集合(5)
    集合(4)
    集合(3)
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2108357.html
Copyright © 2011-2022 走看看