У меня есть ряд строк (адресов), из которых нужно получить наименования улиц.
1.
2.
3.
4.
5.
Город
Балахонова
Балахонова 39
Балахонова 39А
Балахонова 39/А
Улицей считается строка, в конце которой через пробел указан номер дома (число или число с буквенным индексом). В приведенном выше примере подходящими будут последние три строки, для них нужно получить название улицы.
Регулярное выражение использую такое: "(.+)\s\d\S*".
На
http://www.pcre.ru/eval/ это выражение работает правильно.
Но вот как его применить в коде Perl, не соображу.
Если использовать такой код:
то в $s попадают также и первые две строки.
Если код чуть усложнить:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
my $s = shift;
if ($s =~ m/(.+)\s\d\S*/)
{
$s =~ s/(.+)\s\d\S*/$1/;
return $s;
}
else
{
return;
}
тогда работает, как мне надо.
Но хотелось бы покороче сделать.
________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
