Re: 請問一下一個簡單的問題

[chhuang (我是瓶男我很難懂)]

#!/usr/local/bin/perl

sub read_in_directory
{

    my $dirname = @_;
    opendir(DH, $dirname) || die "cannot opendir $dirname";
    my @entries = readdir(DH);

    chdir $dirname;

    #open the file
    foreach $entry (@entries){
        if ( -f $entry ){
            open(FH,$entry);
            print $_ while(<FH>);
            close FH;
        }
    }
}

read_in_directory(@ARGV);

--

我是瓶男~我很難懂!

http://blog.yam.com/chhuang

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.62.84.89
推 DeanJean:謝謝你  我看懂了 謝謝 :~~