Исправление
redgremlin,
(текущая версия)
:
То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.
Тогда надо как-то так:
@tags = ('20', '21', 'gewt', 'etc');
if (/^\:(.+?)\:/) {
$tag = $1;
$sender .= $_ if grep { $_ eq $tag } @tags;
}
Исходная версия
redgremlin,
:
То есть хочу добавить туда и файлы которые начинаются на :21: , :gewt: и т.п.
Тогда надо как-то так:
[code=perl]
@tags = ('20', '21', 'gewt', 'etc');
if (/^\:(.+?)\:/) {
$tag = $1;
$sender .= $_ if grep { $_ eq $tag } @tags;
}
[/code=perl]