Using perl Syntax Highlighting
my %abbreviation_of = (
'value addedd tax' => 'vat',
'belasting over de toegevoedge waarde' => 'btw',
'impuesto sobre el valor añadido' => 'iva',
);
'value addedd tax' => 'vat',
'belasting over de toegevoedge waarde' => 'btw',
'impuesto sobre el valor añadido' => 'iva',
);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
y si lo recorro con each() funciona como quiero:
Using perl Syntax Highlighting
while ((my $key, my $value) = each(%abbreviation_of)) {
print "$key\t$value\n";
}
print "$key\t$value\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Ahora bien, si hago esto otro:
Using perl Syntax Highlighting
y lo ejecuto entonces tengo este fallo:
- Código: Seleccionar todo
Bareword "tax" not allowed while "strict subs" in use at cascade.pl line 18.
Execution of cascade.pl aborted due to compilation errors.
Aquí todo el código
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
my $input = shift;
my %abbreviation_of = (
'value addedd tax' => 'vat',
'belasting over de toegevoedge waarde' => 'btw',
'impuesto sobre el valor añadido' => 'iva',
);
while ((my $key, my $value) = each(%abbreviation_of)) {
print "$key\t$value\n";
}
print "$abbreviation_of{value added tax}\n";
use strict;
use warnings;
my $input = shift;
my %abbreviation_of = (
'value addedd tax' => 'vat',
'belasting over de toegevoedge waarde' => 'btw',
'impuesto sobre el valor añadido' => 'iva',
);
while ((my $key, my $value) = each(%abbreviation_of)) {
print "$key\t$value\n";
}
print "$abbreviation_of{value added tax}\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿Alguna idea de por qué falla? He probado con comillas simples, dobles, sin comillas, ..., se me acabaron las ideas.