Архив форумов ЦИТФорума

[droopy]

Я сейчас не имею возможности тестировать. Но хотел бы знать как в перл
использовать массив массивов.
Будет ли такое работать?
my (@messages);
my @param = param();
sub add_message()
{
my @new_message;
my $date = `/usr/bin/date %D`;
if( $#param > -1 )
{
@new_message = qw( param( "name" ), param( "org" ), param( "email" ), $date, param( "text" ) );
unshift( @messages, @new_message );
}
}
И можно ли будет обращаться так: $messages[0][0]?