my $path = `pwd`;
chomp $path; # `pwd`命令结尾有个回车符，需要chomp去掉
print "$path\n ";
opendir DIR ,$path || die "cant open $!";
foreach my $file (readdir DIR) { # readdir 将读出所有的文件和目录，包括.和..
print "$file\n ";
}
常见问题
相关文章
猜你喜欢
- 批量下载书籍，慎用 2015-12-14
- simple http proxy 2015-12-14
- perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块 2015-12-14
- 使用perl socket 在WINDOWS DHCP服务上 实现ip绑定 2015-12-14
- sort 自定义函数排序 2015-12-14
- 查找重复文件 2015-12-14
- 结合Zabbix做MySQL相关性能参数 2015-12-14
- perl 等待打点功能实现。休闲代码：） 2015-12-14
- Perl 一个简单的 GUI 程序，有退出按钮 2015-12-14
- Perl 调用 SetAttributes 修改文件属性 （Windows） 2015-12-14
