Ver Tema

perleando_apenas · 2012-01-17 08:39 @402

Hola a todos.
Estoy intentando aprender a usar given/when, pero con este código básico

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

$m = $ARGV[0];
given ($m) {
  when (/00$/) {
    print "Termina en 00\n";
  }
  when (/01$/) {
    print "Termina en 01\n";
  }
  when (/02$/) {
    print "Termina en 02\n";
  }
  when (/03$/) {
    print "Termina en 03\n";
  }
  default {
    print "Es un otro valor\n";
  }
}
 

Pero al ejecutar, me dice:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

$ perl test.pl 12301

syntax error at test.pl line 2, near ") {"

Execution of test.pl aborted due to compilation errors.

¿Me pueden ayudar a identificar lo que estoy haciendo mal?

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

$ perl --version

This is perl, v5.8.8 built for x86_64-linux-thread-multi

Muchas gracias.

explorer · 2012-01-17 10:39 @485

Lo siento, pero given/when solo está disponible desde la versión v5.10 de Perl.

En el documento perl5100delta, en la sección Switch and Smart Match operator, lo comentan.

Deberás usar otro sistema, a base de if(), elsif() y else{}. En el documento perlsyn (de Perl v5.8.8. En tu ordenador, escribe: perldoc perlsyn) te comentan hasta nueve ejemplos distintos de cómo hacerlo (pero no se te ocurra usar el módulo Switch, que ha sido recientemente descatalago).

Por otra parte... ¿qué haces con un Perl del año 2006?

perleando_apenas · 2012-01-17 14:03 @627

Muchas gracias, explorer, por tu respuesta. Buscaré lo que me indicas.

Respecto de la versión de Perl... hummm... buena pregunta. Preguntaré al administrador.

¡Saludos!

Publicidad

Socializa