perl 得到指定目录中的指定内容
2012-07-29 11:05
99 查看
两种方法,第一种方法是可以使用 chdir + glob, 但是这种方法对于 . 和 .. 文件要 分开处理, 另外一种方法是使用目录句柄DH: opendir, readdir, closedir,这种方法可以获取所有的文件,包括. 和..文件。。。。。
第一种方法示例如下:
1)
#!perl
use strict;
use warnings;
sub change_dir
{
my ($chdir, @filenames) = @_;
chdir $chdir or die "can't change dir: $!";
@filenames = glob "*";
foreach my $filename (@filenames)
{
print "the dir has $filename \n";
}
}
sub list_files
{
#本程序适用于Windows
&change_dir("e:\\nana\\diags", "*");
}
&list_files();
2)第二种方法如下:
#!perl
use strict;
use warnings;
sub list_files
{
my ($dir) = @_;
opendir DH, $dir or die "Can't open dir $dir: $!\n";
foreach my $file (readdir DH)
{
print "$dir has $file\n";
}
closedir DH;
}
&list_files("e:\\nana\\diags");
如果第二种方法中不想显示 . 和 .. 文件则在foreach语句中加入这么一句话: next if ($file eq "." or $file eq ".."); 就ok 啦。
如果只想显示文件 可以加上一句:next unless -f "$dir\\$file" ;
你觉得哪种方法好呢?
第一种方法示例如下:
1)
#!perl
use strict;
use warnings;
sub change_dir
{
my ($chdir, @filenames) = @_;
chdir $chdir or die "can't change dir: $!";
@filenames = glob "*";
foreach my $filename (@filenames)
{
print "the dir has $filename \n";
}
}
sub list_files
{
#本程序适用于Windows
&change_dir("e:\\nana\\diags", "*");
}
&list_files();
2)第二种方法如下:
#!perl
use strict;
use warnings;
sub list_files
{
my ($dir) = @_;
opendir DH, $dir or die "Can't open dir $dir: $!\n";
foreach my $file (readdir DH)
{
print "$dir has $file\n";
}
closedir DH;
}
&list_files("e:\\nana\\diags");
如果第二种方法中不想显示 . 和 .. 文件则在foreach语句中加入这么一句话: next if ($file eq "." or $file eq ".."); 就ok 啦。
如果只想显示文件 可以加上一句:next unless -f "$dir\\$file" ;
你觉得哪种方法好呢?
相关文章推荐
- perl-指定目录下面修改某文件的名字及修改此文件中的内容
- linux 搜索后内容复制到指定目录
- 读取根目录src下的指定配置properties文件内容
- 需求:将指定目录(包含内容)复制到另一个目录中(利用字节流复制文本文件)
- xcode如何用代码打开指定的文件夹目录并显示目录内容
- Python_删除/创建指定目录及其下所有子目录的文件,该文件记录当前文件夹的内容
- 列出指定目录下文件或者文件夹,包含子目录的内容。
- 统计指定目录下,指定后缀文件的个数及内容行数
- Linux下替换指定的目录及其子目录下所有文件中的某些内容(3种方法)
- GUI练习:列出指定目录内容
- GUI练习——列出指定目录内容
- perl比较两个目录中的文件内容是否相同
- php实现遍历目录并删除指定文件中指定内容
- 利用fs.readdir()函数访问服务器指定目录里的内容
- 代码训练营——File,列出指定目录下的所有内容
- Python_删除/创建指定目录及其下所有子目录的文件,该文件记录当前文件夹的内容
- php 解压zip压缩包内容到指定目录的实例
- python3获取指定目录内容的详细信息
- 得到一个指定目录下所有文件的文件名,子目录名不要
- 【ColdFusion】读取指定Excel中的内容,并且上传到服务器指定目录