Как удалить большое количество файлов рекурсивно (Скрипт на Perl)
### Проблема и постановка задачи Когда в linux в одном каталоге скапливается много файлов (более миллиона), то удалить их является нетривиальной задачей. Подробное описание проблемы и пути решения описаны в этом ...
Шпаргалка по хэшам
Read This: [Хэши (ассоциативные массивы) в Perl на OpenNet](https://www.opennet.ru/docs/RUS/perl_hash/) Вывести хэш с сортировкой по ключам my %hash=('for'=>1000,'to'=>1500,'in'=>2000 ...
Шпаргалка по regexp
#### Выделить из URL домен второго уровня строка: query: alt4.gmail-smtp-in.z.google.com IN A + (192.168.1.81) требуется получить на выходе google.com regexp: ^query: (?:[^\.]+\.)*?([^\.]+\.[^\.]+) IN .+ Расшифровка: `(?:<pattern>)` - это ...</pattern>
Процедура для форматирования переменной
#### Задача Есть переменная с целым числом. Необоходимо при выводе на экран форматировать в human-readаble формате. Например: 1000 -> 1k 10000 -> 10k 1000000 -> 1m #### Решение #! /usr/bin/perl $aa=9500000; print &strip_value($aa),"\n"; ...