Знаете, учить - сложнее, чем делать самому.
В архиве тестовые файлы, и скрипт на perl.
parse.tgz
Знаете, учить - сложнее, чем делать самому.
В архиве тестовые файлы, и скрипт на perl.
parse.tgz
© 2008-2013 ABATAPA WL-500gP/128M / Asus RT-N16 / USB Flash / VLAN / PPPoE / VoIP / nShaper / NAS: iStor is607, Sarotech NAS-20, QNap 109 Pro / NFS / Принтер / etc
Версия для Perl < 5.11 (в частности для Perl из текущего entware/optware):
parse-mipsel.tgz
Скрипт только печатает имена "нужных" файлов, не удаляя "лишние"!
Чтобы удалять, нужно добавить одну строчку...
Для рекурсивного обхода каталогов можно использовать `find -exec':
find /dir -type d -exec /path/to/parse-mipsel.pl {} \;
© 2008-2013 ABATAPA WL-500gP/128M / Asus RT-N16 / USB Flash / VLAN / PPPoE / VoIP / nShaper / NAS: iStor is607, Sarotech NAS-20, QNap 109 Pro / NFS / Принтер / etc