• Publicidad

Cómo concatenar 2 variables

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Cómo concatenar 2 variables

Notapor Mickz » 2006-05-04 14:52 @661

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. for ( $i = 1; $i <= 6; $i++ ) {
  2.  
  3.     print <<END_OF_HTML;
  4. questions[$i] = $questions6{correctAnswerNr};
  5. END_OF_HTML
  6.  
  7. }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

Mi pregunta es cómo concatenar la $i después de $questions.
Que me muestre esto:
$questions1
$questions2
$questions3
$questions4
$questions5
$questions6
Mickz
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2005-12-14 13:07 @588
Ubicación: Mexico

Publicidad

Notapor kidd » 2006-05-04 15:14 @676

Humm, no entiendo muy bien la pregunta, me parece que quieres algo así:
print "\$questions$_\n" for 1..6;

El resultado va a ser:
$questions1
$questions2
$questions3
$questions4
$questions5
$questions6


Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor explorer » 2006-05-05 04:20 @222

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4.  
  5. for ( my $i = 1; $i <= 6; $i++ ) {
  6.     print <<END_OF_HTML;
  7. questions[$i] = \$questions${i}{correctAnswerNr};
  8. END_OF_HTML
  9. }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

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.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4.  
  5. my @questions = (
  6.     undef,
  7.     { correctAnswerNr => 'avion', },
  8.     { correctAnswerNr => 'coche', },
  9.     { correctAnswerNr => 'motos', },
  10.     { correctAnswerNr => 'bicis', },
  11.     { correctAnswerNr => 'casas', },
  12.     { correctAnswerNr => 'peras', },
  13. );
  14.  
  15. for ( my $i = 1; $i <= 6; $i++ ) {
  16.     print <<END_OF_HTML;
  17. questions[$i] = $questions[$i]{correctAnswerNr};
  18. END_OF_HTML
  19. }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

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


O quizás lo tengas así:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2.  
  3. %questions1 = ( correctAnswerNr => 'avion' );
  4. %questions2 = ( correctAnswerNr => 'coche' );
  5. %questions3 = ( correctAnswerNr => 'motos' );
  6. %questions4 = ( correctAnswerNr => 'bicis' );
  7. %questions5 = ( correctAnswerNr => 'casas' );
  8. %questions6 = ( correctAnswerNr => 'peras' );
  9.  
  10. for ( my $i = 1; $i <= 6; $i++ ) {
  11.     print <<END_OF_HTML;
  12. questions[$i] = ${questions.$i}{correctAnswerNr};
  13. END_OF_HTML
  14. }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
(salida igual que antes)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 23 invitados

cron