Cómo concatenar 2 variables

Foros de discusión -> Básico

Jue May 04, 2006 1:52 pm

Mickz
Perlero Nuevo

Registrado: 14 Dic 2005
Mensajes: 14
Ubicación: Mexico

Cómo concatenar 2 variables

Código:

for($i=1; $i<=6 ; $i++){

print<<END_OF_HTML;

questions[$i] = $questions6{correctAnswerNr};

END_OF_HTML

}

Mi pregunta es cómo concatenar la $i después de $questions.
Que me muestre esto:

Cita:

$questions1
$questions2
$questions3
$questions4
$questions5
$questions6

Jue May 04, 2006 2:14 pm

kidd
Creador de Perl en Español

Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México

Umm, no entiendo muy bien la pregunta, me parece que quieres algo así:

Código:

print "\$questions$_\n" for 1..6;

El resultador va a ser:

Código:

$questions1
$questions2
$questions3
$questions4
$questions5
$questions6

Saludos

Vie May 05, 2006 3:20 am

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4082
Ubicación: Valladolid, España

Código:

#!/usr/bin/perl
use warnings;
use strict;

for(my $i=1; $i<=6 ; $i++){
print <<END_OF_HTML;
questions[$i] = \$questions${i}{correctAnswerNr};
END_OF_HTML
}

Código:

questions[1] = $questions1{correctAnswerNr};
questions[2] = $questions2{correctAnswerNr};
questions[3] = $questions3{correctAnswerNr};
questions[4] = $questions4{correctAnswerNr};
questions[5] = $questions5{correctAnswerNr};
questions[6] = $questions6{correctAnswerNr};

Más información sobre Here documents.

Código:

#!/usr/bin/perl
use warnings;
use strict;

my @questions = (
undef,
{correctAnswerNr => 'avion',},
{correctAnswerNr => 'coche',},
{correctAnswerNr => 'motos',},
{correctAnswerNr => 'bicis',},
{correctAnswerNr => 'casas',},
{correctAnswerNr => 'peras',},
);

for(my $i=1; $i<=6 ; $i++){
print<<END_OF_HTML;
questions[$i] = $questions[$i]{correctAnswerNr};
END_OF_HTML
}

Código:

questions[1] = avion;
questions[2] = coche;
questions[3] = motos;
questions[4] = bicis;
questions[5] = casas;
questions[6] = peras;

O quizás lo tengas así:

Código:

#!/usr/bin/perl

%questions1 = ( correctAnswerNr => 'avion' );
%questions2 = ( correctAnswerNr => 'coche' );
%questions3 = ( correctAnswerNr => 'motos' );
%questions4 = ( correctAnswerNr => 'bicis' );
%questions5 = ( correctAnswerNr => 'casas' );
%questions6 = ( correctAnswerNr => 'peras' );

for(my $i=1; $i<=6 ; $i++){
print<<END_OF_HTML;
questions[$i] = ${questions.$i}{correctAnswerNr};
END_OF_HTML
}

(Salida igual que antes)

	Foros de discusión -> Básico	Todas las horas son GMT - 6 Horas
Página 1 de 1