kingbosster 发表于 2018-8-31 09:29:29

perl检测无效符号链接

　　# cat callback5.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use File::Find;
　　sub what_to_do {
　　-1 && !-e && print "bogus link: $File::Find::name\n";
　　}
　　my @starting = qw(.);
　　find({wanted=>\&what_to_do,no_chdir=>1},@starting);

页: [1]
查看完整版本: perl检测无效符号链接