Perl: список файлов и директорий рекурсивно, но исключить некоторые каталоги и файлы, передаваемые

Question

Пожалуйста, дайте любое предложение или фрагмент кода или что-нибудь, что может работать.

Я уже пробовал хотел функцию, но как я могу исключить некоторые директории в то время как рекурсии?

Answer 1

В Linux, вы можете использовать «найти» Linux и команды «Grep» и запустить те команды Linux в Perl, используя QX для хранения результата команды Linux в Perl.

например.

$cmd = "find . | grep -v 'dir1\|dir2\|...\|dirn'"; 
$result=qx($cmd); 

Вышеприведенные комбинаций команд выполните следующие действия:

1. Команда находки перечислит все директории и файлы рекурсивно.
2. Труба "|" пройдет результат поиска, чтобы Grep команду
3. В Grep -v команда выведет на экран только строка не существует в «dir1», «dir2» ... «DIRN», чтобы быть проигнорировано
4. наконец, команда qx выполнит команды find и grep Linux и сохранит результат в переменной $ result.

Вы можете сделать подобную вещь в Windows. Единственное различие заключается в использовании командной строки Windows.

например.

$result=qx('dir /b/s | find /v "workspace" | find /v "TVM"') 

Вышеприведенная команда перечислит всю директорию рекурсивно, за исключением того, что в каталоге есть имя «рабочая область» или «ТВМ».