Вот строка, которая удаляет строки с минимальными цифрами из моего файла, когда он находится в определенном каталоге.Мой запрос к тому же коду должен поддерживать все каталоги и подкаталоги и все файлы расширений, а не только файлы расширений .html.Как мне это сделать?
perl -e 'print q(<table><tr class="normal">). (sort {$b cmp $a} grep {/rev/i} split /(?:<\/?tr[^>]*>\s*)+/i, join "", <>)[0] .q(</tr></table>)' file1.html > file1_red.html