Shulou(Shulou.com)06/02 Report--

What is the file traversal operation in Perl programming? in view of this problem, this article introduces the corresponding analysis and solution in detail, hoping to help more partners who want to solve this problem to find a more simple and easy way.

Several points of knowledge:

Use Cwd references the current directory

Cwd: current directory

Shift: getting position parameter

Chdir changes directory location

Opendir opens the directory

Closedir close the directory

Foreach . Next

#! perl-wuse strict;use Cwd; / / sub scanDirectory {my $workdir=shift; my $startdir=cwd; chdir $workdir or die "Unable to enter the $workdir dir!\ n"; opendir my $DIR,'.' Or die "can't open the dir\ n"; my @ names = readdir $DIR or die "can't readdir\ n"; closedir $DIR; foreach my $name (@ names) {next if ($name eq'.'); next if ($name eq'..'); if (- d $name) {scanDirectory ($name); next } if ($name eq 'core.txt') {print "find a core file! Path: ". Cwd. "\ n"; next;} chdir $startdir or die "Unable to enter the $startdir dir!\ n";} & scanDirectory ('.'); the answer to the question about file traversal in Perl programming is shared here. I hope the above content can be of some help to everyone. If you still have a lot of doubts to be solved, you can follow the industry information channel for more related knowledge.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.