Perl使用chdir的示例代码

2020-02-23 19:47:06

字体：大中小

来源：转载

供稿：网友

Perl编程有许多值得我们学习的地方，你对Perl使用chdir有过了解吗？武林技术小编今天就给大伙分享下Perl使用chdir的示例代码，需要的小伙伴，不妨学习看看。

复制代码代码如下:

use strict;
use warnings;

# Print all files in a directory
sub print_files {
    my $dir = 'd:/code';
    opendir DIR, $dir or die $!;
    my @files = readdir DIR;
    chdir $dir; # Use chdir or -f will not work, since -f need absolutely path
    foreach my $file (@files) {
        if (-f $file) {
            print "$file/n";
        }
    }
    closedir DIR;
}

&print_files();

以上就是Perl使用chdir的示例代码，通过上文想必都已清楚明了，更多关于Perl的内容请继续关注武林技术频道。

上一篇：Perl 与 Python 之间的一些异同整理

下一篇：perl中heredoc的使用解析