Jugando Con Perl v1 00

Jugando con Perl Una breve introducción a Perl Por Nacho Cabanes, www.nachocabanes.com

 Versión 1.00

Pág. 1

Jugando con Perl – 1: Instalación y comprobación Perl no es el lenguaje ue más de moda est! en este momento, "ero sigue ah#. $ dicen ue es un lenguaje "otente, adecuado "ara automati%ar tareas en un servidor, "ara crear C&'s o "ara integrarlo con ("ache en un servidor web, "or ejem"lo. $ de hecho, muchos servidores de 'nternet lo inclu)en, además de otros lenguajes ue actualmente se o)en mencionar más, como P*P, o como P)thon +otro ue a"render! "ronto... -  /l caso es ue, a"rovechando las vacaciones, he decidido dedicar algo de tiem"o a a"render cosas nuevas. $ una de las ue ten#a en la lista es Perl. Cuento con la a)uda del libro Perl in a Nutshell, ue aduir# hace )a algn tiem"o ) ue hasta ahora no hab#a mirado más ue "or encima. 'r! avan%ando ) "racticando, ) dejando constancia de mis avances, "or si a alguien más le resultaran tiles. Comen%aremos con un primer acercamiento. Un "rimer vista%o a la sinta2is básica del lenguaje ) al uso del int!r"rete bajo 3indows. Primer "aso4 descargar +e instalar la versión lista "ara usar bajo 3indows, desde htt"455www.activestate.com5Products5(ctivePerl5 6e trata de una descarga de unos 17 8b de tama9o. /n concreto, la versión ue he descargado es la 7.:.:, en ;ormato 86' +instalador de 3indows. : 8b en el disco duro, ) !l mismo se encarga de situarlo en el Path +o eso se su"one, "ara ue "odamos usarlo desde cualuier otra car"eta de nuestro ordenador. 6egundo "aso4 probar ue ;unciona. (bro un int!r"rete de comandos +'nicio 5 /jecutar 5 cmd, o bien 'nicio 5 ?odos los "rogramas 5 (ccesorios 5 6#mbolo del sistema, en ambos casos bajo @P. /stá instalado de c4APerl as# ue vo) hasta esa car"eta +concretamente hasta su subcar"eta bin, ue es donde se encuentra el int!r"rete4 c: cd \perl\bin dir

 $ e;ectivamente, en esa car"eta ha) 10B ;icheros, en su ma)or#a ;icheros /@/ o ;icheros (?.
/sto escribir#a la "alabra hola +sin las comillas, claro en "antalla. Pero tambi!n "odemos hacer algo ligeramente más com"lejo, como Pág. D

perl -e "for ($i=0; $i<5; $i++) { print 'hola '; } "

ue escribir#a hola hola hola hola hola  en "antalla.

Jugando con Perl – 2: Variables, print, if, while  (hora vamos a ver alguna de las caracter#sticas básicas de Perl como lenguaje, "ara "oder com"arar con otros como C. Un ejem"lo de cómo dar valores a variables ) mostrar estos valores "odr#a ser !ste4 $ = !; $nobre = '#acho';  print "ola% $nobre&  ale $\n";

Como se puede ver, las variables "normales" (lo que en Perl se suele llamar "variables escalares") tienen un nombre que comienza por el símbolo $, y no es necesario declararlas ni indicar qué tipo de datos almacenarán, sino que se deduce a partir del contexto Por e!emplo, $x = 1 ará que la variable "x" almacene un n#mero entero, de valor  %e i&ual modo, $nombre='Nacho'  &uarda la cadena de texto "'aco" en la variable "nombre" as cadenas de texto se pueden delimitar entre comillas dobles o comillas simples a dierencia es que si se encierra entre comillas dobles, se sustituirán las variables que aya en su interior, escribiendo el valor de la variable en vez del nombre *stas tres +rdenes se podrían teclear en un icero llamado e!emplopl, y pondríamos este  pro&rama en uncionamiento con

perl eeplo!&pl *l resultado que obtendríamos sería

ola% #acho&  ale ! (l i&ual que en C, existen ciertos caracteres especiales, como el -n que nos permite avanzar de línea)

*so de que no sea necesario declarar variables tiene su parte ne&ativa. en este pro&rama $nobre = '#acho';  print "ienenido% $nobr&";

lo que se muestra en pantalla no es "/ienvenido, 'aco" sino "/ienvenido, ", porque emos escrito mal el nombre de la variable (para evitar estos problemas, se puede obli&ar a que aya que declarar variables, ya veremos c+mo)

Pág. =

0ucas de las estructuras básicas (comparaciones, bucles) recuerdan muco a las de otros len&ua!es como C 1n e!emplo podría ser. $ = 5; if ($ == 5) {  print " ale 5\n"; }  print "*a tabla de ltiplicar del , e:\n" ; for ($i=!; $i<=!0; $i++) {  print ",  $i e " & $i., & "\n";

}  print "/ la tabla de ltiplicar del  e:\n";

$i = !;  while ($i<=!0) {  print "  $i e " & $i. & "\n"; $i++; }

a principal dierencia es que las llaves 2 y 3 después de las +rdenes como "i" o como "or" son obli&atorias, aunque s+lo aya una orden en su interior Por otra parte, el punto () se usa para crear una cadena ormada por otras dos. $saludo = "Hola" . "Nacho" 4 aría que la variable "saludo" contuviese el texto "5ola'aco" (*xisten más variantes, como "unless" o "until", que veremos en la pr+xima entre&a)

Jugando con Perl – : !rrays  (hora vamos a ver un "oco sobre cómo manejar arra)s +matrices, vectores desde Perl.
6e "uede acceder a los valores individuales usando corchetes4 el "rimer elemento ser#a FlistaG0H ) el cuarto ser#a FlistaG=H. ?ambi!n se "uede contar hacia atrás4 el ltimo dato ser#a FlistaG-1H ) el "enltimo ser#a FlistaG-DH. /l tama9o se "uede saber sim"lemente asignando el valor de un arra) a una variable normal +una variable escalar, siguiendo la nomenclatura de Perl4 $lon3itd = 1lita;

?ambi!n e2iste una orden ue "ermite recorrer una arra) de ;orma más sencilla ue un ;or. 6e trata de ;oreach, ue se usa foreach ariable (lita) { 4rdene }

Pág. I

"or ejem"lo foreach $nobre (1lita#obre) { print $nobre & "\n"; }

/ste ser#a un ejem"lo com"leto de todo ello4 1lita#ero = (!0%,0%0%5); 1lita#obre = ("an"% "6edro"% "7lberto");  print "*o nero on: "; for ($i=0; $i<=; $i++) {  print 1lita#ero8$i9 & " ";

}  print "\n*o nero (de otra fora) on: " ; foreach $i (1lita#ero) {  print $i & " ";

}  print "\n*o nobre on: "; foreach $ (1lita#obre) {  print $ & " ";

}  print "\nl prier nobre e: "&

$lita#obre809 & "\n";  print "l ltio nero e: "&

$lita#ero8-!9 & "\n"; $cantidad#ero = 1lita#ero;  print "*a cantidad de nero e: "&

$cantidad#ero & "\n"; 1lita#ero = ();  print "7hora la cantidad de nero e: "&

1lita#ero & "\n";

ue tendr#a como resultado4 *o nero on: !0 ,0 0 5 *o nero (de otra fora) on: !0 ,0 0 5 *o nobre on: an 6edro 7lberto l prier nobre e: an l ltio nero e: 5 *a cantidad de nero e: 2 7hora la cantidad de nero e: 0

/n el "ró2imo a"artado... las variantes en el manejo de i;, while, etc...

Pág. 7

Jugando con Perl – ": unless, until, ne#t, last, redo *emos visto el manejo básico de las condiciones i; ) while, "ero estas órdenes dan más juego del ue "arece4 Para ue el código ;uente sea más legible, tenemos tambi!n órdenes "arecidas "ero ue com"rueban el caso contrario, como nle (condici4n) {4rdene}

+las órdenes se ejecutaran en caso de ue NJ se cum"la la condición. Ke igual modo, e2iste una orden similar a while, "ero ue re"ite mientras las condición no se cum"le +o hasta ue la condición se cum"la4 ntil (condici4n) {4rdene}

 (demás, estas I ordenes +i;, while, unless, until se "ueden usar tambi!n como modi;icadores, al ;inal de otra orden4 $ =5 if ($ < $ -- nle ($==0); print $ hile($
"ero ha) más4 tambi!n "odemos encadenar varios i; con elsi;4 if ($ < elif ($  0) print " poitio"; ele print " cero";

6i alguien viene de C ) echa en ;alta breaL ) continue, tambi!n tiene euivalencias4 last hace lo ue el breaL4 termina el bucle +;or, while o el ue se est! usando. ne2t euivale a continue4 termina la iteración actual del bucle ) comien%a la siguiente "asada. ?ambi!n e2iste redo, ue da una nueva "asada sin volver a com"robar la condición. • •

•

Por cierto, la orden goto e2iste, "ero como su uso es evitable casi siem"re, no comento mas sobre ella... -

Jugando con Perl – $: %#presiones regulares Una de las grandes ventajas de Perl sobre otros lenguajes más antiguos como C es el manejo más sencillo de cosas ;recuentes, como las cadenas de te2to. Jtro es la enorme cantidad de ;unciones incor"oradas, ue "ermiten hacer gran cantidad de cosas con una cierta sencille%. Jtro es el uso de e2"resiones regulares directamente desde el lenguaje. /so es lo ue vamos a ver ho)4 las e2"resiones regulares, ) de "aso, algo más sobre el manejo de cadenas. /n C, "ara ver si una cadena em"ie%a "or a, har#amos algo como if (teto809 == 'a') &&&

Pág. B

6i ueremos ver si em"ie%a "or ab, la cosa se va haciendo más engorrosa if ((teto809 == 'a') >> (teto8!9 == 'b')) &&&

/sto, además de ser más largo ) más di;#cil, tiene "roblemas menores4 Msi mi cadena tiene sólo longitud 1, deber#a )o acceder a la segunda "osición > (teto809 == 'a') >> (teto8!9 == 'b')) &&&

/stá claro ue a"enas una com"aración tan sencilla como em"ie%a "or ab en minsculas )a va siendo engorrosa de "rogramar en C. /n Perl todo esto es mucho más sencillo, gracias al uso de e2"resiones regulares. Vamos a ver cómo se har#a ) luego detallamos u! hemos hecho4 $frae! = "abcde"; if ($frae! =? @ab&.@) { print "*a frae ! contiene ab  AiBC al3o C\n"; }

Cosas a tener en cuenta "ara em"e%ar4 Para comparar una cadena con una e2"resión regular usaremos =~ +si ueremos ver si cum"le la condición o Q +"ara com"robar si NJ se cum"le.
• •

• •

+luego en la e2"resión anterior estamos buscando4 a, b, 0 o más veces cualuier carácter. 6i eso ueda claro, sigamos... Para ver si se ha tecleado en ma)sculas o en minsculas, usar#amos corchetes.
6i se trata de un rango de valores, "odemos usar un guión. Por ejem"lo, "odr#amos com"robar si se ha tecleado un nmero, haciendo $nerontero = "!,25";

Pág. >

if ($nerontero =? @80-E9.@) { print "l nDero entero 4lo contiene cifra\n"; }

+0 o más ci;ras del 0 al S Pero siendo estrictos, eso dar#a una cadena vac#a como nmero válido, ) eso es un tanto discutible. 6i ueremos ue al menos ha)a una ci;ra, en ve% de usar el asterisco +0 o más, usar#amos el s#mbolo de la suma +T, ue indica  o más veces4 if ($nerontero =? @80-E9+@) { print "l nDero entero 4lo contiene cifra\n"; }

+1 o más ci;ras del 0 al S ealmente, esto ace"tar#a cualuier cadena ue contenga un nmero entero. 6i ueremos ue 6
+la cadena contiene sólo 1 o más ci;ras del 0 al S MCómo lo har#amos "ara un nmero real 1 o más ci;ras del 0 al S, seguidas ui%ás "or un "unto decimal +"ero sólo 1 ), en ese caso, seguidas tambi!n "or 1 o más ci;ras del 0 al S. Para eso necesitamos saber alguna cosa más4 /l . es un comod#n, de modo ue si ueremos buscar si a"arece un "unto dentro de nuestra cadena, deberemos indicar ue no nos re;erimos al comod#n, sino al s#mbolo del "unto +., ) "ara eso lo "recedemos con la barra invertida4 A  6i ueremos ue algo se re"ita como mucho una ve% +0 o  veces , a9adiremos una interrogación + a continuación. 6i necesitamos agrupar cosas +ue se re"ita el "unto ) una secuencia de ci;ras lo haremos usando "ar!ntesis antes del s#mbolo  +o el ue nos interese en nuestra com"robación. •

•

•

Con esas consideraciones, lo "odr#amos escribir as#4 if ($neroGeal! =? @F80-E9+(\&80-E9+)H$@) { print "l nDero real ! parece correcto\n"; }

Un ejem"lo ue agru"e todo esto4 $frae! = "abcde";

Pág. :

$frae, = "acde"; $nerontero = "!,25"; $neronteroIalo = "!,a25"; $neroGeal! = "!,&25"; $neroGeal, = "!,&2&5"; $neroGeal = "!,&"; if ($frae! =?  m @ab&.@) {  print "*a frae ! contiene ab  AiBC al3o C\n"; } else {  print "*a frae ! no contiene ab\n";

} if ($frae, =?  m @ab&.@) {  print "*a frae , contiene ab  AiBC al3o C\n"; } else {  print "*a frae , no contiene ab\n";

} if ($frae, =?  m @8a798b9&.@) {  print "*a frae , contiene ab (aDcla o inDcla)  AiBC al3o C\n" ; } else {  print "*a frae , no contiene por ab (aDcla o inDcla)\n";

} if ($nerontero =?  m @F80-E9+$@) {  print "l nDero entero 4lo contiene cifra\n"; } else {  print "l nDero entero no 4lo contiene cifra\n";

} if ($neronteroIalo =?  m @F80-E9+$@) {  print "l falo nDero entero 4lo contiene cifra\n"; } else {  print "l falo nDero entero no 4lo contiene cifra\n";

} if ($neroGeal! =?  m @F80-E9+(\&80-E9+)H$@) {  print "l nDero real ! parece correcto\n"; } else {  print "l nDero real ! no parece correcto\n";

} if ($neroGeal, =?  m @F80-E9+(\&80-E9+)H$@) {  print "l nDero real , parece correcto\n"; } else {  print "l nDero real , no parece correcto\n";

} if ($neroGeal =?  m @F80-E9+(\&80-E9+)H$@) {  print "l nDero real  parece correcto\n"; } else {  print "l nDero real  no parece correcto\n";

}

ue dar#a como resultado4 *a frae ! contiene ab  AiBC al3o C

Pág. S

*a *a l l l l l

frae , no contiene ab frae , contiene ab (aDcla o inDcla)  AiBC al3o C nDero entero 4lo contiene cifra falo nDero entero no 4lo contiene cifra nDero real ! parece correcto nDero real , no parece correcto nDero real  no parece correcto

Jtras "osibilidades ue no hemos comentado +los ejem"los, más abajo4 6i ueremos ue la bsueda no distinga entre may"sculas y min"sculas, a9adiremos una i a continuación de la segunda barra, Para e2"resar ue algo debe re"etirse un n"mero concreto de veces, lo indicamos entre llaves4 XD,IY uerr#a decir un m#nimo de D veces ) un má2imo de I veces X=Y ser#a e2actamente = veces X>,Y indicar#a > o más veces. Una barra vertical +Z indica opcionalidad. Un acento circun;lejo +W nada más comen%ar un corchete indica ue buscamos el caso •

•

• •

contrario#

 (lgunos ejem"los más, "ara "oner casi todo a "rueba4 Una secuencia de una o más letras a4 5aT5 Una secuencia enre = ) 7 a4 5aX=,7Y5 Cualuier letra4 5Ga-%(-%H5 Una secuencia de cero o más "untos4 5A.R5 Una secuencia de letras a o b4 5GaZbHT5
\inalmente, ui%á sea interesante comentar ue "ara ahorrarnos trabajo en cosas ;recuentes como cualuier ci;ra tenemos abreviaturas similares a Ad. /stas son las más habituales4 \d Jn dK3ito nLrico \M n carCcter Ae no ea n dK3ito nLrico \ Jn carCcter "de palabra" (alfanLrico  "N") \O Jn carCcter "no de palabra" (opeto al anterior) \ Jn carCcter de epacio en blanco \P Jn carCcter Ae no ea de epacio en blanco \t Jn tablador \n Jn aance de lKnea \r Jn retorno de carro \02 Jn carCcter indicado en octal (en ete cao% 2 octal = 5 decial) \f Jn carCcter headecial (Lte e f headecial = Q decial)

+6e "uede hacer más cosas an, "ero como introducción es bastante...

Jugando con Perl – &: 'ash Jtra de las novedades de Perl ;rente a otros lenguajes clásicos es el so"orte de tablas hash, Pág. 10

una estructura de datos "arecida a los arra)s, "ero en la ue "ara acceder a cada elemento no usaremos un nmero, sino una "alabra asociada.
Para ver la edad de Pedro har#amos print "*a edad de an e " & $edad{'an'} & "\n";

+cuidado4 "ara acceder a cada dato individual s# se em"lea E, ) la re;erencia ue buscamos se encierra entre llaves. /2iste otra ;orma de declarar este ti"o de variables, ue ocu"a más es"acio "ero "uede resultar más legible4 Retatra = ( an = !S,% 6edro = !TS );

 (s# se ve más claramente ue son dos "ares de datos. /n este caso, tambi!n se acceder#a a cada dato de la misma ;orma print "*a etatra de 6edro e " & $etatra{'6edro'} & "\n";

6e "uede modi!icar el valor de una variable de ti"o hash as#4 $etatra{'an'} = !S;

6i usamos este mismo ;ormato con una re;erencia ue no e2iste, se a$adirá a la tabla hash4 $etatra{'7lberto'} = !QE;

Podemos borrar un dato con delete4 delete $etatra{'an'};

J eliminar todo el hash con unde;4 ndef Retatra;

Pág. 11

\inalmente, "odemos juntar todo esto en un "eue9o "rograma de "rueba4 Redad = ('an'% ,% '6edro'% !);  print "*a edad de an e " & $edad{'an'} & "\n";

Retatra = ( an = !S,% 6edro = !TS );  print "*a etatra de 6edro e " & $etatra{'6edro'} $etatra{'an'} = !S;  print "*a etatra de an e " & $etatra{'an'} & $etatra{'7lberto'} = !QE; delete $etatra{'an'};  print "*a etatra de an e " & $etatra{'an'} & undef Retatra;  print "*a etatra de an e " & $etatra{'an'} &

& "\n"; "\n";

"\n"; "\n";

/n este ejem"lo, los dos ltimos "rint muestran 
Jugando con Perl – (: )reando funciones  (hora vamos a ver cómo crear !unciones en Perl.
•

•


/n la ;orma moderna +utili%able a "artir de Perl 7 se "uede declarar con "ar!ntesis +e indicar el nmero de "arámetros con s#mbolos E ) llamar sin "ar!ntesis4 sub suma +E X ... Y suma+=,I  Vamos a agru"ar todo esto en un e%emplo4 # Función para saludar a varios, al antiguo estilo sub aldo

{  print "to e n aldo para: "; foreach $actal (1N) {  print $actal & " ";

}  print "\n";

} # Función para elevar al cuadrado, al antiguo estilo sub cadrado {  my $nero = shift;

$nero ..= ,; return $nero; } # Función para sumar dos números, al modo moderno, 2 parámetros sub a($$)

{ return $N809 + $N8!9;

}

# Cuerpo del programa # Primero llamamos a la función saludo, al antiguo estilo

>aldo("#acho"% "an"); #Luego, elevamos 3 al cuadrado  print " al cadrado e : " & >cadrado() &"\n"; #Finalmente, sumamos 4 y    print "2 + Q = " & a(2%Q) &"\n";

/l resultado de este "rograma ser#a /sto es un saludo "ara4 Nacho [uan = al cuadrado es 4 S I T B _ 10

Pág. 1=

Jugando con Perl – *: +unciones de biblioteca 6e acaba el tiem"o ue "uedo dedicar a e2"erimentar con Perl.  (un as#, como "eue9a muestra de alguna otra de las "osibilidades ue "ermite, vo) a incluir una lista con algunas de las ;unciones ue incor"ora, "or categor#as. No dar! detalles de su uso, "ero si a alguien le interesa, al menos )a tiene un "oco más ;ácil "ara encontrar el resto de la in;ormación ue "ueda necesitar4 8atemáticas abs - valor absoluto atanD - arco tangente de $5@ en el rango -P' ... P' cos - coseno e2" - eleva e a una cierta "otencia he2 - convierte una cadena a nmero he2adecimal int - "arte entera de un nmero log - logaritmo oct - convierte una cadena a nmero octal rand - devuelve un nmero "seudoaleatorio sin - seno srt - ra#% cuadrada srand - semilla "ara nmeros aleatorios • • • • • • • • • • • •

Cadenas cho" - elimina el ltimo carácter de una cadena cr)"t - encri"tación en un sentido, como en "asswd lc - devuelve una cadena convertida a minsculas lc;irst - devuelve una cadena con sólo la "rimera letra convertida a minsculas length - devuelve el nmero de b)tes en una cadena reverse - da la vuelta a una cadena o una lista uc - devuelve una cadena convertida a ma)sculas uc;irst - devuelve una cadena con sólo la "rimera letra convertida a ma)sculas • • • • • • • •

6istema o"erativo ) de ;icheros chdir - cambia el directorio de trabajo chmod - cambia los "ermisos de una lista de ;icheros chown - cambia el "ro"ietario de una lista de ;icheros e2ec - abandona este "rograma "ara ejecutar otro e2it - termina este "rograma ;orL - crea un nuevo "roceso hijo, como el actual getlogin - nombre del usuario activo gmtime - convierte la hora de UN'@ a un registro o cadena, usando la hora &reenwich linL - crea un enlace en el sistema de ;icheros localtime - convierte la hora de UN'@ a un registro o cadena, usando la hora local locL - blouea un hilo en una variable, subrutina o m!todo mLdir - crea un directorio readlinL - determina dónde a"unte un enlace simbólico • • • • • • • • • • • • •

Pág. 1I

• • • • • • • •

rename - cambia un nombre de ;ichero rmdir - borra un directorio slee" - es"era un cierto nmero de segundos s)stem - ejecuta otro "rograma time - nmero de segundos desde 1S>0 utime - cambia la ;echa de acceso ) modi;icación de un ;ichero wait - es"era a ue cualuier "roceso hijo termine wait"id - es"era a ue un "roceso hijo concreto termine

8ani"ulación de ;icheros close - cierra un ;ichero closedir - cierra un directorio eo; - com"rueba si un ;ichero ha llegado al ;inal getc - lee el siguiente carácter de un ;ichero ;locL - blouea todo un ;ichero o"en - abre un ;ichero o un "i"e o"endir - abre un directorio "rint - env#a una lista a un ;ichero "rint; - env#a una lista ;ormateada a un ;ichero read - lectura de datos de tama9o ;ijo mediante bu;;er desde un ;ichero readdir - lee un directorio readline - lee una l#nea de un ;ichero seeL - salta a otra "osición de un ;ichero +acceso directo seeLdir - salta a otra "osición de un directorio tell - devuelve la "osición actual en un ;ichero telldir - devuelve la "osición actual en un directorio truncate - trunca un ;ichero • • • • • • • • • • • • • • • • •

edes ) comunicaciones acce"t - ace"ta una cone2ión de socLet entrante connect - conecta a un socLet remoto gethostb)addr - devuelve un host de red, dada su dirección gethostb)name - devuelve un host de red, dado su nombre msgrcv - recibe un mensaje 6)sV 'PC de una cola de mensajes msgsnd - env#a un mensaje 6)sV 'PC a una cola de mensajes recv - recibe un mensaje sobre un socLet send - env#a un mensaje sobre un socLet ... • • • • • • • •

Pero uedan muchas más. ?ienes una lista al;ab!tica detallada -en ingl!s- en4 htt"455www.sunsite.ualberta.ca5Kocumentation58isc5"erl-7.B.15"od5"erl;unc.html

Pág. 17

Versiones de este te#to
● ● ● ● ● ● ● ●

67oct78669 Primera versi+n P%: (66) de este texto, publicada en mi ;eb (;;;nacocabanescom) 6<7oct78669 Publicado el apartado < en mi blo& 697oct78669 Publicado el apartado 9 en mi blo& 8=7sep78669 Publicado el apartado > en mi blo& 897sep78669 Publicado el apartado ? en mi blo& >7sep78669 Publicado el apartado @ en mi blo& 8@7!ul78669 Publicado el apartado A en mi blo& 97!ul78669 Publicado el apartado 8 en mi blo& 87!ul78669 Publicado el apartado  en mi blo& (nacocabanesblo&spotcom)

Pág. 1B