两位淫女陈雅漫&欣杨 各种风骚各种妖娆【63P/55M】

iamivannn

哈哈哈哈哈，

赞9999

456156151541

hldark666

谢谢分享

linhe_zh

带劲，给力

871538264

棒棒哒 喜欢

mddevice

谢谢分享 太爽了看起来

jctl

两位淫女陈雅漫&欣杨

sunsh2010

#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

sub lsrp {
    my ($dir, $sub, $ext, $print) = @_;

    my @dirs = ($dir);

    my @rets = ();

    while (my $dir = pop(@dirs)) {
        local *DH;
        if (!opendir(DH, $dir)) {
            warn "Cannot opendir $dir: $! $^E";
            next;
        }

        foreach (readdir(DH)) {
            if ($_ eq '.' || $_ eq '..') {
                next;
            }
            my $file = $dir.$_;         
            if (!-l $file && -d _) {
                $file .= '/';
                push(@dirs, $file) if $sub;
            } elsif ($file =~ /.Q$extE$/) {
                push @rets, $file;
                $print->($file) if defined($print);
            }
        }
        closedir(DH);
    }

    return @rets;
}

my $find_dir = shift @ARGV;
my $find_ext = shift @ARGV;
my $find_sub = shift @ARGV;

if (!defined($find_dir)) {
        help();
        exit;
}

if (!defined($find_ext)) {
        help();
        exit;
}

if (!defined($find_sub)) {
        $find_sub = 0;
}

if ($find_dir =~ /[^/]$/) {
        $find_dir .= '/';
}
$find_ext =~ s/^.//;

sub p {
        print (shift . "n");  
}

my @files = lsrp($find_dir, $find_sub, $find_ext, &p);

if ($#files <= 0) {
        print "Found nothing.n";
        exit;
}

#print "Found " . $#files . ($#files <= 1 ? " file" : " files") . "n";
#
#foreach (@files) {
#        print " -> ".$_."n";
#}

exit;

sub help {
        print "Usage:n";
        print "t$0".' [directroy] [extension] [recursion]'."n";
        print "Sample:nt$0 . pl 1 n";
}

jhlsqbao

各种风骚各种妖娆

lm1987724

非常感谢楼主分享