perl检测无效符号链接

发布时间：2020-12-15 21:02:04 所属栏目：大数据来源：网络整理

导读：[root@dou perlref]# cat callback5.pl?????? #!/usr/bin/perl -w?????? use strict;?????? use File::Find;?????? sub what_to_do {?????? ??????? -1 !-e print "bogus link: $File::Find::namen";?????? }?????? my @starting = qw(.);?????? find({want

[root@dou perlref]# cat callback5.pl??????
#!/usr/bin/perl -w??????
use strict;??????

use File::Find;?????? sub what_to_do {?????? ??????? -1 && !-e && print "bogus link: $File::Find::namen";?????? }?????? my @starting = qw(.);?????? find({wanted=>&;what_to_do,no_chdir=>1},@starting);?????? ?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!