From 5f15d684efd831a6b048f2d42ea66f2494728d7f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Joaqu=C3=ADn=20Ferrero?= <explorer@joaquinferrero.com>
Date: Sun, 24 Aug 2014 22:56:09 +0200
Subject: Update perl-es.html.markdown

Perl syntax errors.
---
 es-es/perl-es.html.markdown | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'es-es')

diff --git a/es-es/perl-es.html.markdown b/es-es/perl-es.html.markdown
index fecaf5c4..644182ff 100644
--- a/es-es/perl-es.html.markdown
+++ b/es-es/perl-es.html.markdown
@@ -36,19 +36,19 @@ my $respuesta = 42;
 
 ## Arreglos
 # Un arreglo representa una lista de valores:
-my @animales = {"camello","llama","buho"};
-my @numeros  = {23,42,69};
-my @mixto    = {"camello",42,1.23};
+my @animales = ("camello","llama","buho"};
+my @numeros  = (23, 42, 69);
+my @mixto    = ("camello", 42, 1.23);
 
 ## Hashes
 # Un hash representa un conjunto de pares llave/valor:
-my %color_fruta = {"manzana","rojo","banana","amarillo"};
+my %color_fruta = ("manzana","rojo","banana","amarillo");
 
 # Puede usar un espacio en blanco y el operador "=>" para asignarlos más fácilmente
 my %color_fruta = (
    manzana => "rojo",
    banana  => "amarillo",
-   );
+);
 
 # Los escalares, arreglos y hashes están más documentados en perldata (perldoc perldata)
 
@@ -87,6 +87,10 @@ for ($i = 0; $i <= $max; $i++) {
     ...;
 }
 
+for $i (0 .. $max) {
+    ...;
+}
+
 foreach (@array) {
     print "Este elemento es $_\n";
 }
-- 
cgit v1.2.3