Error al usar switch y given

[neodani]

Buenas,

Cuando intento usar el siguente script me da error, sabéis como puedo solucionarlo?

Can't locate feature.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./perl_first_webstats.sh line 68.
BEGIN failed--compilation aborted at ./perl_first_webstats.sh line 68.

Código PERL:

sub Crear_Nuevas_Stats {
    print colored(" - Selecciona el hosting donde apunta la web: ('q' para salir)",'cyan'),"\n";
    print "\t1) HosAPA01\n";
    print "\t2) HosAPA02\n";
    print "\t3) HosIIS01\n";
    print "\t4) HosIIS02\n";
    print "\t5) HosIIS03\n";
 
    chop ($host = <STDIN>);
    print $host;
    #use feature 'say'; say 'which?'
    use feature qw(switch say);
    given ($host) {
        when ('1') {
            say "Seleccionaste HOSAPA01\n";
        }
        when ('2') {
            say "Seleccionaste HOSAPA02\n";
        }
    }
}
 

Lo probé de dos formas distintas
use feature 'say'; say 'which?'
use feature qw(switch say);

¿Me falta algun modulo?

Muchas gracias de antemano!

[jferrero]

switch y otras 'features' son a partir del Perl v5.10.

El Perl v5.8.8 que estás usando no las tiene.

Ese Perl es de ¡principios del 2006...!


Otra cosa... el código que pones está lleno de print() con "\n", que podrían ser sustituidos por say(), pero eso sí, cuando tengas el Perl v5.10 o superior.

En la calle ya está el Perl v5.12.1 desde el mes pasado.

[neodani]

Iniciado por jferrero

switch y otras 'features' son a partir del Perl v5.10.

El Perl v5.8.8 que estás usando no las tiene.

Ese Perl es de ¡principios del 2006...!


Otra cosa... el código que pones está lleno de print() con "\n", que podrían ser sustituidos por say(), pero eso sí, cuando tengas el Perl v5.10 o superior.

En la calle ya está el Perl v5.12.1 desde el mes pasado.

Si fuese mi máquina ya tendría la última versión, créeme ;)
Lo que pasa es que se trata de un servidor antiguo en la empresa, al cual ya tiene unos años y no puedo instalarle una versión superior.

Para la versión que ves, la 5.8.8, no existe una forma alternativa de hacer el switch?

Muchas gracias de antemano

[jferrero]

Existe el módulo Switch en CPAN: http://search.cpan.org/~rgarcia/Switch-2.16/Switch.pm aunque siempre puedes hacerlo con una batería de if(){}elsif(){}else{}

[neodani]

Iniciado por jferrero

Existe el módulo Switch en CPAN: http://search.cpan.org/~rgarcia/Switch-2.16/Switch.pm aunque siempre puedes hacerlo con una batería de if(){}elsif(){}else{}

Muchas gracias lo conseguí de la siguiente forma:

switch ($host) {
case "1" { print "Seleccionaste HOSAPA01\n" }
case "2" { print "Seleccionaste HOSAPA02\n" }
case "3" { print "Seleccionaste HosIIS01\n" }
case "4" { print "Seleccionaste HosIIS02\n" }
case "5" { print "Seleccionaste HosIIS03\n" }
else { print "Selecciona una opcion valida\n" }
}