- 博客(2)
- 收藏
- 关注
原创 Perl命令将一个目录下所有文件夹中的文件移动到一个目标文件夹中
while (my $file = readdir(SUB_DIR)) { # 遍历子目录中的文件。# 替换成实际目录路径。替换成实际目录路径,将。
2023-04-26 04:19:15
494
1
原创 在ARM架构的M2芯片电脑中使用的Perl命令,用于将一个目录下所有格式为tsv的文件内容合并为一个文件
open my $in_fh, '<', $input_file or die "无法打开输入文件 $input_file: $!open my $out_fh, '>', $output_file or die "无法打开输出文件 $output_file: $!if (-f $input_file && $input_file =~ /\.tsv$/) { # 如果是tsv文件。替换为包含要合并的tsv文件的输入目录路径,并将。
2023-04-26 04:09:27
191
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人