рецепты Perl

1) Фильтрация символов в имени  директории

my $dir = '/opt/test';

if ($dir =~/[<>\\\|\-&\.\0\s\*\?]/) {
    die "Ошибка ввода! Недопустиый символ \"$&\" \n";
}

print $dir;

Популярные сообщения