手机
当前位置:查字典教程网 >脚本专栏 >perl >Perl使用chdir的实例代码
Perl使用chdir的实例代码
摘要:复制代码代码如下:usestrict;usewarnings;#Printallfilesinadirectorysubprint_file...

复制代码 代码如下:

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 "$filen";

}

}

closedir DIR;

}

&print_files();

【Perl使用chdir的实例代码】相关文章:

perl用grep map求交集、并集、补集的实例代码

perl的logwrapper使用实例代码

使用perl清理电脑上重复文件实现代码(续)

Perl中使用File::Lockfile确保脚本单实例运行

perl中srand()与time的函数使用方法介绍

perl哈希hash的常见用法介绍

Perl Mysql数据库操作实现代码

Perl localtime时间函数的应用介绍

perl数组的多数字下标示例代码

perl Socket编程实例代码

精品推荐
分类导航