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

[dendodor]

Добрый день. Только начинаю изучать 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]

Если есть утилита find-то

find PATH -type f -printf "%f\n" > test.txt

где PATH - директория, откуда начинается поиск.