Answer the question
In order to leave comments, you need to log in
Answer the question
In order to leave comments, you need to log in
Hey!
In my opinion, it is better to feel the first letter using the means of a programming language, and not regular expressions. This will come out clearer and more productive.
#!/usr/bin/perl -w
$one = 'qwF12F3gh'; # Считываем примеры
$two = 'FqwF12F3gh'; # В переменные
for $example ($one, $two){ # Проходимся по обоим примерам в цикле
$first = substr($example, 0, 1); # Считываем первый символ в переменную $first
$example =~ s/\D//g; # Удаляем из строки все, что не является числом
if($first eq 'F'){ # Если первый символ равен "F"
$example = 'F' . $example; # Возвращаем его обратно в строку
}
}
print 'qwF12F3gh', ' -> ', $one;
print 'FqwF12F3gh', ' -> ', $two;
# Результат
# qwF12F3gh -> 123
# FqwF12F3gh -> F123
Didn't find what you were looking for?
Ask your questionAsk a Question
731 491 924 answers to any question