是否停止运行此脚本解决，脚本运行速度减慢警告！( 二 ) _美文推荐

运行结果：
你现在所在的目次为 /home
2、体现部门的文件
假定咱们想体现当前目次下的部门文件，也许操作glob 独霸符来实现：
#!/usr/bin/perl
# 体现 /tmp 目次下的部门文件
$dir="/tmp/*";
my @files=glob( $dir );
foreach(@files ){
print $_ . " ";
}
3、目次句柄
假定咱们想从目次里得到文件名列表，还也许操作目次句柄：
#!/usr/bin/perl
opendir (DIR,".") or die "无奈翻开目次, $!";
# opendir翻开目次句柄DIR
while ($file=readdir DIR) {
#readdir获取目次中的文件列表
print "$file ";
}
closedir DIR;
#关闭目次句柄
4、树立和删除目次
咱们也许操作 mkdir 函数来树立1个目次或rmdir 函数删除1个目次，履行前你需要有充实的权限：
mkdir "fred", 0七５5 or warn "Cannotmake fred directory: $!";
foreach my$dir (qw(fred barney betty)) {
rmdir $dir or warn "cannot rmdir $dir: $! ";
}
PS: 0七５5体现目次创建时的初始权限
５、删除和重定名文件
咱们一般会对文件停止删除独霸，在Perl里面，咱们也许操作unlink函数来实现：
unlink "slate", "bedrock", "lava"; #删除三个文件
或者用qw()列出文件列表，即：
unlink qw(slate bedrock lava);
PS: unlink只能用来删除文件，不能用来删除目次，它的返回值代表胜利删除的文件数目。
除此以外，咱们还也许用rename函数停止重定名独霸：
rename "old" "new"
6、批改权限和隶属干系
咱们知道Linux零碎中的chmod和chown命令，别离也许用来批改文件、目次的权限和隶属干系。在Perl里面对应的chmod和chown函数也有一样的依顺。
chmod 0七５5,"fred", "barney"; #批改文件的权限为0七５5
my $user=1004;
my $group=100;
chown $user,$group, glob "*.o"; #批改部门以".o"末端文件的领有者和所属组
PS: chomd和chown函数会返回胜利批改文件的个数
处置惩罚惩罚好输入问题是1个步伐畸形运行的次要条件。这里我尽量精简的引见了思空见贯的文件测试和目次独霸。因为篇幅无量，难以深入倒退说明，谨以此文，送与初入门Perl措辞的友好们。
下1节课咱们来聊聊， perl模块陈列与操作，敬请本人关注！
【是否停止运行此脚本解决，脚本运行速度减慢警告！】参考资料：

是否停止运行此脚本解决 ，脚本运行速度减慢警告！( 二 )

是否停止运行此脚本解决，脚本运行速度减慢警告！( 二 )