三种遍历文件夹方法比较(PERL)

　　一般黑客都常用遍历方法来进行插入挂马代码等。

　　三种遍历文件夹方法比较

　　本贴对三种遍历文件夹方法比较。

　　1. 使用File::Find;

　　2. 递归遍历。(遍历函数为lsr)

　　3. 使用队列或栈遍历。(遍历函数为lsr_s)

　　1.use File::Find

#!/usr/bin/perl -W # # File: find.pl # Author: 路小佳 # License: GPL-2 use strict; use warnings; use File::Find; my ($size, $dircnt, $filecnt) = (0, 0, 0); sub process { my $file = $File::Find::name; #print $file, "\n"; if (-d $file) { $dircnt++; } else { $filecnt++; $size += -s $file; } } find(\&process, '.'); print "$filecnt files, $dircnt directory. $size bytes.\n";

　　2. lsr递归遍历

#!/usr/bin/perl -W # # File: lsr.pl # Author: 路小佳 # License: GPL-2 use strict; use warnings; sub lsr($) { sub lsr; my $cwd = shift; local *DH; if (!opendir(DH, $cwd)) { warn "Cannot opendir $cwd: $! $^E"; return undef; } foreach (readdir(DH)) { if ($_ eq '.' || $_ eq '..') { next; } my $file = $cwd.'/'.$_; if (!-l $file && -d _) { $file .= '/'; lsr($file); } process($file, $cwd); } closedir(DH); } my ($size, $dircnt, $filecnt) = (0, 0, 0); sub process($$) { my $file = shift; #print $file, "\n"; if (substr($file, length($file)-1, 1) eq '/') { $dircnt++; } else { $filecnt++; $size += -s $file; } } lsr('.'); print "$filecnt files, $dircnt directory. $size bytes.\n";

[1] [2] 下一页