syntax error at test.pl line 2, near ") {"
Execution of test.pl aborted due to compilation errors.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Estoy intentando aprender a usar given/when, pero con este código básico
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";
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Pero al ejecutar, me dice:
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.
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?
Using text Syntax Highlighting
$ perl --version
This is perl, v5.8.8 built for x86_64-linux-thread-multi
This is perl, v5.8.8 built for x86_64-linux-thread-multi
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Muchas gracias.
