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

This article will explain in detail how to deal with folders in perl. The editor thinks it is very practical, so I share it for you as a reference. I hope you can get something after reading this article.

Use perl to batch process all files under the folder opendir () to get directory rights; readdir () to read the files in the directory #! / usr/bin/perl-w $dirname = "/ tmp"; # specify a directory opendir (DIR, $dirname) | | die...

Use perl to batch process all files under the folder

Opendir () gets the directory authority; readdir () reads the files under the directory

#! / usr/bin/perl-w$dirname = "/ tmp"; # specify a directory opendir (DIR, $dirname) | | die "Error in opening dir $dirnamen"; while (($filename = readdir (DIR) {print ("$filenamen"); # circularly output the files in this directory. # do something #} closedir (DIR)

For example, copy each file once:

#! / usr/bin/perluse warnings;use strict;my (% h, $filename); my $dirname= "/ home/bmk/"; opendir (DIR, $dirname) | | die "Error in opening dir $dirnamen"; while (($filename=readdir (DIR) {open (FILE, "/ home/bmk/". $filename) | die "can not open the file $filenamen"; open (OUT, "> / home/bmk/$filename.bak") | die "can not open the $filename.bakn"; while () {print OUT "$_" }} this is the end of the article on "how perl handles folders". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it for more people to see.

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.