求指點(diǎn)

我收點(diǎn)倦

#!/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";


不知道哪位大俠可告知 程序中l(wèi)ocal *DH;
是什么意思 。這個(gè)遍歷文件的程序?yàn)槭裁磿�這樣寫呢？

zhlong8

local *DH 是過時(shí)的動(dòng)態(tài)作用域用法，是為了防止名字沖突，你可以理解為把 DH 之前的值放入一個(gè)棧中這個(gè)大括號結(jié)束后把原來的值恢復(fù)。現(xiàn)在直接用 opendir my $dh, 'dir'; 就可以了

作者這里不想用遞歸就搞了個(gè)棧來模擬

我收點(diǎn)倦

非常感謝大俠�。�！

午夜凋零

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

jason680

回復(fù) 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
           ...
   

我收點(diǎn)倦

恩，謝謝各位的指點(diǎn)��！
對于三樓提出的問題，我也在想，可是才學(xué)疏淺，也木有想出來啊。
希望有大俠可以幫著看一下吧！