Помогите, плиз, в написании скрипта

dendodor

Active Member
Добрый день. Только начинаю изучать Unix. Но уже столкнулся с необходимостью написать script след содержания: необходимо найти все файлы рекурсивно в определенном каталоге и их имена вывести в текстовый файл, например, с именем Temp.txt
 
Последнее редактирование:

PainKiller

Пастафарианец
Команда форума
Супер Модератор
Код:
#!/usr/bin/perl -w
use strict;
$\="\n";
my $start=$ARGV[0] || die "no start point, use ./${0} path/to/dirrectory file-to-save.txt. example - ./${0} . files.txt";
$ARGV[1] || die "no target file";
open (FH,">>$ARGV[1]");
&reqFiles($start);
sub reqFiles
{
	my $startPoint=shift;
	opendir(DIR, $startPoint);
	my @files=grep(!/^\.+$/,readdir(DIR));
	map{-d($_) ? &reqFiles($_) : print  FH "$_"}@files;
}
closedir(DIR);
close FH;
Держи :)
 

akl

geek
Если есть утилита find-то
Код:
find PATH -type f -printf "%f\n" > test.txt
где PATH - директория, откуда начинается поиск.
 
Последнее редактирование:
Верх