perl 取出目录中的所有文件
发布时间：2020-12-16 00:40:07 所属栏目：大数据 来源：网络整理
导读：?通过perl 我们可把一个目录下的所有文件打印出来： ?#!/usr/bin/perl -wT use File::Copy; use strict; print "取文件,请输入文件路径:"; chomp(my $path = STDIN); opendir DIR,$path; my @dir = readdir DIR; closedir DIR; foreach my $file (@dir){ pri
|
?通过perl 我们可把一个目录下的所有文件打印出来： ?#!/usr/bin/perl -wTuse File::Copy;use strict;print "取文件,请输入文件路径:";chomp(my $path = <STDIN>);opendir DIR,$path;my @dir = readdir DIR;closedir DIR;foreach my $file (@dir){print "$filen";}（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |