Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Вопрос по qw

Автор: meridian 25.1.2006, 15:49

Привет всем

нужна помощь в следующем

есть работающее обращение к функции

Код


SetCloneFields ( $entity, [ qw( Наименование Детальное_описание ) ] );

Как обратиться к этой фунции, если список параметров подготовил след. образом ?

m

Код


my $list_field = GetListField( $entity1, $entity2 );
my $list_clon_field = join( ' ', split( "\n", $list_field ) );  # получил парамеры в 1 строку

SetCloneFields( $entity, [ qw( '$list_clon_field' ) ] );    # этот код не проходит

пасиба

Автор: korob2001 25.1.2006, 16:07

Не мудри ты с этим qw, он нужен там, где он нужен.

Код


my $list_field = GetListField( $entity1, $entity2 );
SetCloneFields( $entity, [ split( "\n", $list_field ) ] );

Кстити, если уж так хочется заюзать qw, попробуй так:

Код


my $list_field = GetListField( $entity1, $entity2 );
SetCloneFields( $entity, [ qw( split( "\n", $list_field )) ] );

Автор: meridian 25.1.2006, 16:12

Cпасибо, и действительно, перемудрил smile