当前位置： 移动技术网 > IT编程>网页制作>Perl > Perl使用chdir的实例代码

Perl使用chdir的实例代码

2017年12月08日  | 移动技术网IT编程  | 我要评论

复制代码 代码如下:

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();

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网