if (-d _) {............} 这个是什么意思，我打印了很多遍都找不到结果（谢谢）

whitecell

if (-d _) {............}

ztkx

if (-d $_) 吧

whitecell

#!/usr/bin/perl -w
# symirror - build spectral forest of symlinks
use strict;
use File::Find;
use Cwd;

my ($srcdir, $dstdir);
my $cwd = getcwd();
die "usage: $0 realdir mirrordir" unless @ARGV == 2;

for (($srcdir, $dstdir) = @ARGV) {
    my $is_dir = -d;
    next if $is_dir;                        # cool
    if (defined ($is_dir)) {
        die "$0: $_ is not a directory\n";
    } else {                                # be forgiving
        mkdir($dstdir, 07777) or die "can't mkdir $dstdir: $!";
    }
} continue {
    s#^(?!/)#$cwd/#;                        # fix relative paths
}
                    
chdir $srcdir;
find(\&wanted, '.');

sub wanted {
    my($dev, $ino, $mode) = lstat($_);
    my $name = $File::Find::name;
    $mode &= 07777;                 # preserve directory permissions
    $name =~ s!^\./!!;              # correct name
    if (-d _) {                     # then make a real directory
        mkdir("$dstdir/andy$name", $mode)
            or die "can't mkdir $dstdir/$name: $!";
    } else {                        # shadow everything else
        symlink("$srcdir/$name", "$dstdir/$name")
            or die "can't symlink $srcdir/$name to $dstdir/$name: $!";
    }

whitecell

[img]#!/usr/bin/perl -w
# symirror - build spectral forest of symlinks
use strict;
use File::Find;
use Cwd;

my ($srcdir, $dstdir);
my $cwd = getcwd();
die "usage: $0 realdir mirrordir" unless @ARGV == 2;

for (($srcdir, $dstdir) = @ARGV) {
    my $is_dir = -d;
    next if $is_dir;                        # cool
    if (defined ($is_dir)) {
        die "$0: $_ is not a directory\n";
    } else {                                # be forgiving
        mkdir($dstdir, 07777) or die "can't mkdir $dstdir: $!";
    }
} continue {
    s#^(?!/)#$cwd/#;                        # fix relative paths
}
                    
chdir $srcdir;
find(\&wanted, '.');

sub wanted {
    my($dev, $ino, $mode) = lstat($_);
    my $name = $File::Find::name;
    $mode &= 07777;                 # preserve directory permissions
    $name =~ s!^\./!!;              # correct name
    if (-d _) {                     # then make a real directory
        mkdir("$dstdir/andy$name", $mode)
            or die "can't mkdir $dstdir/$name: $!";
    } else {                        # shadow everything else
        symlink("$srcdir/$name", "$dstdir/$name")
            or die "can't symlink $srcdir/$name to $dstdir/$name: $!";
    }
}[/img]

whitecell

1. #!/usr/bin/perl -w
   
2. # symirror - build spectral forest of symlinks
   
3. use strict;
   
4. use File::Find;
   
5. use Cwd;
   
6. 
   
7. my ($srcdir, $dstdir);
   
8. my $cwd = getcwd();
   
9. die "usage: $0 realdir mirrordir" unless @ARGV == 2;
   
10. 
    
11. for (($srcdir, $dstdir) = @ARGV) {
    
12.     my $is_dir = -d;
    
13.     next if $is_dir;                        # cool
    
14.     if (defined ($is_dir)) {
    
15.         die "$0: $_ is not a directory\n";
    
16.     } else {                                # be forgiving
    
17.         mkdir($dstdir, 07777) or die "can't mkdir $dstdir: $!";
    
18.     }
    
19. } continue {
    
20.     s#^(?!/)#$cwd/#;                        # fix relative paths
    
21. }
    
22.                     
    
23. chdir $srcdir;
    
24. find(\&wanted, '.');
    
25. 
    
26. sub wanted {
    
27.     my($dev, $ino, $mode) = lstat($_);
    
28.     my $name = $File::Find::name;
    
29.     $mode &= 07777;                 # preserve directory permissions
    
30.     $name =~ s!^\./!!;              # correct name
    
31.     if (-d _) {                     # then make a real directory
    
32.         mkdir("$dstdir/andy$name", $mode)
    
33.             or die "can't mkdir $dstdir/$name: $!";
    
34.     } else {                        # shadow everything else
    
35.         symlink("$srcdir/$name", "$dstdir/$name")
    
36.             or die "can't symlink $srcdir/$name to $dstdir/$name: $!";
    
37.     }
    
38. }

复制代码

黑色阳光_cu

小骆驼上有写。。

兰花仙子

if (-d _) {............}
whitecell 发表于 2010-08-15 02:04

    对前一次访问的句柄的快速优化访问，可稍许提高性能。

$ perl -le 'open HD,"/etc/resolv.conf"; print 1 if -f HD; print 0 unless -d _'
1
0

socyno

来自 perldoc 的一段解释：
      If any of the file tests (or either the "stat" or "lstat"
      operators) are given the special filehandle consisting of a
      solitary underline, then the stat structure of the previous file
      test (or stat operator) is used, saving a system call. (This
      doesn't work with "-t", and you need to remember that lstat()
      and "-l" will leave values in the stat structure for the
      symbolic link, not the real file.) (Also, if the stat buffer was
      filled by an "lstat" call, "-T" and "-B" will reset it with the
      results of "stat _"). Example:

          print "Can do.\n" if -r $a || -w _ || -x _;

          stat($filename);
          print "Readable\n" if -r _;
          print "Writable\n" if -w _;
          print "Executable\n" if -x _;
          print "Setuid\n" if -u _;
          print "Setgid\n" if -g _;
          print "Sticky\n" if -k _;
          print "Text\n" if -T _;
          print "Binary\n" if -B _;