求指点

我收点倦

#!/usr/bin/perl -W

use strict;

sub lsr_s($) {

    my $cwd = shift;

    my @dirs = ($cwd.'/');


    my ($dir, $file);

    while ($dir = pop(@dirs)) {

        local *DH;

        if (!opendir(DH, $dir)) {

            warn "Cannot opendir $dir: $! $^E";

            next;

        }

        foreach (readdir(DH)) {

            if ($_ eq '.' || $_ eq '..') {

                next;

            }

            $file = $dir.$_;         

            if (!-l $file && -d _) {

                $file .= '/';

                push(@dirs, $file);

            }

            process($file, $dir);

        }

        closedir(DH);

    }

}


my ($size, $dircnt, $filecnt) = (0, 0, 0);


sub process($$) {

    my $file = shift;

    print $file, "\n";

    if (substr($file, length($file)-1, 1) eq '/') {

        $dircnt++;

    }

    else {

        $filecnt++;

        $size += -s $file;

    }

}


lsr_s('.');

print "$filecnt files, $dircnt directory. $size bytes.\n";


不知道哪位大侠可告知 程序中local *DH;
是什么意思 。这个遍历文件的程序为什么会这样写呢？

zhlong8

local *DH 是过时的动态作用域用法，是为了防止名字冲突，你可以理解为把 DH 之前的值放入一个栈中这个大括号结束后把原来的值恢复。现在直接用 opendir my $dh, 'dir'; 就可以了

作者这里不想用递归就搞了个栈来模拟

我收点倦

非常感谢大侠！！！

午夜凋零

sub lsr_s($)
sub process($$)
括号里的$和$$是什么意思啊？

jason680

回复 4# 午夜凋零

$ perldoc perlsub

NAME
       perlsub - Perl subroutines

SYNOPSIS
       To declare subroutines:

           sub NAME;                     # A "forward" declaration.
           sub NAME(PROTO);              #  ditto, but with prototypes
           sub NAME : ATTRS;             #  with attributes
           sub NAME(PROTO) : ATTRS;      #  with attributes and prototypes

           sub NAME BLOCK                # A declaration and a definition.
           sub NAME(PROTO) BLOCK         #  ditto, but with prototypes
           sub NAME : ATTRS BLOCK        #  with attributes
           sub NAME(PROTO) : ATTRS BLOCK #  with prototypes and attributes
           ...
   
   Prototypes
       Perl supports a very limited kind of compile-time argument checking
       using function prototyping.  If you declare

           sub mypush (+@)
           ...

           Declared as                 Called as

           sub mylink ($$)          mylink $old, $new
           sub myvec ($$$)          myvec $var, $offset, 1
           sub myindex ($$;$)       myindex &getstring, "substr"
           sub mysyswrite ($$$;$)   mysyswrite $buf, 0, length($buf) - $off, $of
           ...
   

我收点倦

恩，谢谢各位的指点！！
对于三楼提出的问题，我也在想，可是才学疏浅，也木有想出来啊。
希望有大侠可以帮着看一下吧！