perl学习笔记（十一）目录句柄操作

hh199203

于 2022-06-24 17:40:57 发布

阅读量274

点赞数

分类专栏： perl 文章标签： perl 学习开发语言目录句柄操作

本文链接：https://blog.csdn.net/hh199203/article/details/125449590

版权

perl 专栏收录该内容

25 篇文章 6 订阅

订阅专栏

文章目录

前言
11 目录句柄操作
总结

前言

本文主要记录一下，perl中的文件句柄操作方法。

11 目录句柄操作

主要用到的是两个函数：opendir和readdir。

my $dir = "C:\\Users\\hefei\\Desktop\\perl_demo";

opendir DIR, $dir or die "Can't open $dir: $!";
foreach $file (readdir DIR){
    next if $file eq "." or $file eq "..";
    next unless $file =~ /\.pl$/;
    print "$file\n"; # 打印的文件路径下所有的pl文件
}
closedir DIR;