手机
当前位置:查字典教程网 >脚本专栏 >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的实例代码】相关文章:

python批量下载壁纸的实现代码

perl的logwrapper使用实例代码

Perl批量下载Gmail附件的代码

perl比较两个文件字符串的实例代码

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

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

Perl生成纯HTML代码二维码实例

perl哈希hash的常见用法介绍

perl后门,正向和反向!实例代码

perl实现blog备份的脚本代码

精品推荐
分类导航