Perl: Dosya ve Klasör İşlemleri

caglarPosted on 27 Haziran 2014 PERL, Yazılım kategorisine gönderildi — Henüz Yorum Yapılmadı ↓

#!/usr/bin/perl -w

my $mfolder="./mainfolder/";

opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n");
my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR));
closedir(DIR);

foreach my $fold(@sub_folder_list)
{
	my $deepfold=$mfolder.$fold;
	
	opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n");
	my @txt_files=grep(/.txt$/,readdir(DIR));
	closedir(DIR);

	foreach my $file(@txt_files)
	{
		print $deepfold."/".$file."\n";
	}

}

#!/usr/bin/perl -w

my $mfolder="./mainfolder/";

opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n");

my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR));

closedir(DIR);

foreach my $fold(@sub_folder_list)

{

my $deepfold=$mfolder.$fold;

opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n");

my @txt_files=grep(/.txt$/,readdir(DIR));

closedir(DIR);

foreach my $file(@txt_files)

{

print $deepfold."/".$file."\n";

}

Etiketler: dosya, file, file and folder list, folder, klasör, list, listeleme, perl

Bir cevap yazın Cevabı iptal et

This site uses Akismet to reduce spam. Learn how your comment data is processed.