perl读取目录,写入文件

perl读取目录,写入文件

此脚本有两个输入参数,第一个参数为需要打印的文件目录,第二个参数为打印后的文件名;

该脚本名称为out_file_full_path

perl 复制代码
#!/bin/perl

use 5.010;
my $dir = $ARGV[0]; # 此为第一个参数;
opendir my $dh, $dir or die "Cannot open $dir: $!";

my $out_file = $ARGV[1]; # 此为第二个参数;
open OUT,">", $out_file or die "Cannot open $out_file:$!";

foreach $file (readdir $dh) {
  next if $file eq '.' or $file eq '..'; # 将当前目录.和上层目录..排除在打印列表之外
  my $full_dir = "$dir/$file"; #加上目录路径,若不需打印目录,则注释改行,修改下一行的$full_dir为$file即可
  print OUT $full_dir . "\n"; #将文件和目录写入OUT文件中,每行添加一个"\n",用于换行
  print "One file in $dir is $file\n"; #此行为debug 调试打印,可注释
}

closedir $dh; # 关闭打开文件夹的句柄
close OUT; #关闭打开文件的句柄

举例说明

perl 复制代码
# 现在在一个名为test的文件夹,test里面有3个文件,分别为test1.v,test2.v,test3.v
# 在终端中输入上述命令
[xxx@local]$ ./out_file_full_path test test.out

# 返回结果有两个,第一个即为打印在终端的:
One file in test is test1.v
One file in test is test2.v
One file in test is test3.v
# 第二个为,输出的文件,名称为test.out
# 在终端中使用cat命令获取文件内容
cat test.out
# 返回值为
$PATH/test/test1.v
$PATH/test/test2.v
$PATH/test/test3.v
# 其中$PATH为test所在路径
相关推荐
侃侃_天下13 小时前
最终的信号类
开发语言·c++·算法
echoarts14 小时前
Rayon Rust中的数据并行库入门教程
开发语言·其他·算法·rust
Aomnitrix14 小时前
知识管理新范式——cpolar+Wiki.js打造企业级分布式知识库
开发语言·javascript·分布式
每天回答3个问题14 小时前
UE5C++编译遇到MSB3073
开发语言·c++·ue5
伍哥的传说15 小时前
Vite Plugin PWA – 零配置构建现代渐进式Web应用
开发语言·前端·javascript·web app·pwa·service worker·workbox
小莞尔15 小时前
【51单片机】【protues仿真】 基于51单片机八路抢答器系统
c语言·开发语言·单片机·嵌入式硬件·51单片机
我是菜鸟0713号16 小时前
Qt 中 OPC UA 通讯实战
开发语言·qt
JCBP_16 小时前
QT(4)
开发语言·汇编·c++·qt·算法
Brookty16 小时前
【JavaEE】线程安全-内存可见性、指令全排序
java·开发语言·后端·java-ee·线程安全·内存可见性·指令重排序
百锦再16 小时前
[特殊字符] Python在CentOS系统执行深度指南
开发语言·python·plotly·django·centos·virtualenv·pygame