- fix merge swift conflict

- Merge master

1 files changed, 58 insertions, 62 deletions

diff --git a/es-es/perl-es.html.markdown b/es-es/perl-es.html.markdown
index 4f0c26c1..644182ff 100644
--- a/es-es/perl-es.html.markdown
+++ b/es-es/perl-es.html.markdown
@@ -7,23 +7,24 @@ contributors:
     - ["Korjavin Ivan", "http://github.com/korjavin"]
 translators:
     - ["Francisco Gomez", "http://github.com/frncscgmz"]
+    - ["Joaquín Ferrero", "http://github.com/joaquinferrero"]
 lang: es-es
 ---
 
-Perl 5 es un lenguaje de programación altamente capaz, rico en características con mas de 25 años de desarrollo.
+Perl 5 es un lenguaje de programación altamente capaz, rico en características, con más de 25 años de desarrollo.
 
-Perl 5 corre en mas de 100 plataformas desde portales hasta mainframes y es adecuado para realizar prototipos rápidos hasta desarrollar proyectos a gran escala.
+Perl 5 corre en más de 100 plataformas, desde portátiles hasta ordenadores centrales, y es adecuado para realizar desde prototipos rápidos hasta desarrollar proyectos a gran escala.
 
 ```perl
-# Comentarios de una sola linea con un carácter hash.
+# Comentarios de una sola línea con un carácter hash
 
 #### Tipos de variables en Perl
 
-# Las variables comienzan con el símbolo $.
-# Un nombre de variable valido empieza con una letra o un guión bajo,
-# seguido por cualquier numero de letras, números o guiones bajos.
+# Las variables comienzan con el símbolo $
+# Un nombre de variable válido empieza con una letra o un guión bajo,
+# seguido por cualquier número de letras, números o guiones bajos
 
-### Perl tiene tres tipos principales de variables: escalares, arreglos y hashes.
+### Perl tiene tres tipos principales de variables: escalares, arreglos y hashes
 
 ## Escalares
 # Un escalar representa un solo valor:
@@ -31,99 +32,98 @@ my $animal    = "camello";
 my $respuesta = 42;
 
 # Los valores escalares pueden ser cadenas de caracteres, números enteros o 
-# de punto flotante, Perl automáticamente los convertirá como sea requerido.
+# de punto flotante; Perl automáticamente los convertirá como sea requerido
 
 ## 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"};
-
-#  Puedes usar un espacio en blanco y el operador "=>" para asignarlos mas
-#  fácilmente.
+# Un hash representa un conjunto de pares llave/valor:
+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 mas documentados en perldata. (perldoc perldata).
+);
 
-# Los tipos de datos mas complejos pueden ser construidos utilizando 
-# referencias, las cuales te permiten construir listas y hashes dentro 
-# de listas y hashes.
+# Los escalares, arreglos y hashes están más documentados en perldata (perldoc perldata)
 
-#### Estructuras condicionales y de ciclos
+# Los tipos de datos más complejos se pueden construir utilizando 
+# referencias, las cuales le permiten construir listas y hashes dentro
+# de listas y hashes
 
-# Perl tiene la mayoría de las estructuras condicionales y de ciclos mas comunes.
+#### Estructuras condicionales y de ciclos
 
+# Perl tiene la mayoría de las estructuras condicionales y de ciclos más comunes
 if ( $var ) {
-     ...
+    ...;
 } elsif ( $var eq 'bar' ) { 
-     ...
+    ...;
 } else {
-     ...
+    ...;
 }
 
 unless ( condicion ) {
-                  ...
-              }
-# Esto es proporcionado como una version mas fácil de leer que "if (!condición)"
+    ...;
+}
 
-# La post condición al modo Perl
+# Esto se ofrece como una versión más fácil de leer que "if (!condición)"
+
+# La postcondición al modo Perl:
 print "Yow!" if $zippy;
 print "No tenemos bananas" unless $bananas;
 
 # while
-  while ( condicion ) {
-                  ...
-               }
-
+while ( condicion ) {
+    ...;
+}
 
 # for y foreach
 for ($i = 0; $i <= $max; $i++) {
-                  ...
-               }
+    ...;
+}
+
+for $i (0 .. $max) {
+    ...;
+}
 
 foreach (@array) {
-                   print "Este elemento es $_\n";
-               }
+    print "Este elemento es $_\n";
+}
 
 
 #### Expresiones regulares
 
-# El soporte de expresiones regulares en Perl es muy amplio y profundo, y es 
-# sujeto a una extensa documentación en perlrequick, perlretut, entre otros.
+# El soporte de expresiones regulares en Perl es muy amplio y profundo, y 
+# está sujeto a una extensa documentación en perlrequick, perlretut, entre otros.
 # Sin embargo, resumiendo:
 
-# Pareo simple
+# Coincidencia simple
 if (/foo/)       { ... }  # verdadero si $_ contiene "foo"
 if ($a =~ /foo/) { ... }  # verdadero si $a contiene "foo"
 
 # Substitución simple
-$a =~ s/foo/bar/;         # remplaza foo con bar en $a
-$a =~ s/foo/bar/g;        # remplaza TODAS LAS INSTANCIAS de foo con bar en $a
+$a =~ s/foo/bar/;         # remplaza "foo" con "bar" en $a
+$a =~ s/foo/bar/g;        # remplaza TODAS LAS INSTANCIAS de "foo" con "bar" en $a
 
 
-#### Archivos e I/O
+#### Archivos y E/S
 
-# Puedes abrir un archivo para obtener datos o escribirlos utilizando la 
-# función "open()".
+# Puede abrir un archivo para obtener datos o escribirlos utilizando la 
+# función "open()"
 
 open(my $entrada, "<"  "entrada.txt") or die "No es posible abrir entrada.txt: $!";
 open(my $salida,  ">", "salida.txt")  or die "No es posible abrir salida.txt: $!";
 open(my $log,     ">>", "mi.log")     or die "No es posible abrir mi.log: $!";
 
-# Es posible leer desde un gestor de archivo abierto utilizando el operador "<>" 
-# operador. En contexto escalar leer una sola linea desde el gestor de 
-# archivo, y en contexto de lista leer el archivo completo en donde, asigna 
-# cada linea a un elemento de la lista.
+# Es posible leer desde un gestor de archivo abierto utilizando el operador "<>".
+# En contexto escalar, leer una sola línea desde el gestor de archivo, y
+# en contexto de lista, leer el archivo completo en donde asigna 
+# cada línea a un elemento de la lista
 
 my $linea  = <$entrada>;
 my @lineas = <$entrada>;
@@ -131,30 +131,26 @@ my @lineas = <$entrada>;
 #### Escribiendo subrutinas
 
 # Escribir subrutinas es fácil:
-
 sub logger {
    my $mensajelog = shift;
    open my $archivolog, ">>", "mi.log" or die "No es posible abrir mi.log: $!";
    print $archivolog $mensajelog;
 }
 
-# Ahora podemos utilizar la subrutina al igual que cualquier otra función 
-# incorporada:
-
+# Ahora podemos utilizar la subrutina al igual que cualquier otra función incorporada:
 logger("Tenemos una subrutina logger!");
 
-
 ```
 
 #### Utilizando módulos Perl
 
-Los módulos en Perl proveen una gama de funciones que te pueden ayudar a evitar reinventar la rueda, estas pueden ser descargadas desde CPAN( http://www.cpan.org/ ). Algunos de los módulos mas populares ya están incluidos con la misma distribución de Perl. 
+Los módulos en Perl proveen de una gama de funciones que le pueden ayudar a evitar reinventar la rueda. Éstas se pueden  descargar desde CPAN ( http://www.cpan.org/ ). Algunos de los módulos más populares ya están incluidos con la misma distribución de Perl.
 
-perlfaq contiene preguntas y respuestas relacionadas con muchas tareas comunes, y algunas veces provee sugerencias sobre buenos módulos CPAN para usar.
+perlfaq contiene preguntas y respuestas relacionadas con muchas tareas comunes, y algunas veces provee sugerencias sobre buenos módulos de CPAN que puede usar.
 
 #### Material de Lectura
 
      - [perl-tutorial](http://perl-tutorial.org/)
-     - [Aprende en www.perl.com](http://www.perl.org/learn.html)
+     - [Learn Perl](http://www.perl.org/learn.html)
      - [perldoc](http://perldoc.perl.org/)
-     - y perl incorporado: `perldoc perlintro`
+     - y en su propio perl: `perldoc perlintro`