|
: Пример на perl'е:
:
: $str = "12w3n4e5sd";
:
: if ($str =~ /^[0-9nsewud]+[^nsewud]+$/) {
: print $str;
: } else {
: print ".$str";
: }
Мне на определенном моменте начало казаться, что таки да, прийдется ваять перлом и так будет правильно, но пару лет назад это как-то у меня было реализовано простым алиасом, как-то так:
#alias {^((\d)|w|s|u|n|e|d)$} {\.(%0)}
Сейчас не выходит.
|