PERL добавить символ к каждому элементу
Получаю из формы данные, выбираю те, которые начинаются с f
foreach my $key (param()) {
if ($key =~ /^f(\d+)$/) {
push(@pos, $key);
}
}
После чего я вношу полученный @pos в БД и получаю "f9 f15 f25 f30".
Мне же нужно, чтобы в БД попадало "#f9, #f15, #f25, #f30". То есть каждому «слову» добавить в начале # и в конце запятую (кроме последнего слова в строке — там запятая не нужна).
Это как-то регексапи делается или как?