El Wed, 4 Aug 2004 12:21:18 -0300
"Admin" <[EMAIL PROTECTED]> escribi�:
>
>
> Hola...
>
> Mando un scrpit en Perl para que alguien que sepa le pegue una
> revisada y me diga si esta bien???
Para hacer eso, haz "prel -Wc tu_script.pl". Con eso te saltar�n
varios errores (al menos supongo eso, luego de echarle una mirada a lo
que mandaste).
Ahora, en perl, cuando tu quieres acceder a un dato de un array se
usa: "$ARRAY[0]" en vez del que tu utilizaste ("@ARRAY[0]"). Cuando
tengas un script de m�s de diez l�neas, ser�a bueno que uses el
"strict", agregando al principio (no en el shebang) algo como:
use strict;
Eso hace que cuando eval�e el script sea m�s riguroso (y evita que
tengas demasiados errores de l�gica). La funci�n que lo �nico que hace
es salir est� dem�s.
Tambi�n ser�a �til (para otros que lean el script) que pongas
comentarios, as� otra persona que lo lee no tiene que imaginarse las
cosas, o leer TODO el script para tener una idea de lo que hace
realmente. O por ejemplo, cuando lees una l�nea y la asignas a varias
variables, ser�a "bueno" que pongas un ejemplo de los datos que
tendr�an que aparecer (a modo de ejemplo).
En otro punto, y para que te sea m�s f�cil rastrear errores, ser�a
bueno que no pases todo el @_ a tus sub's, y que le pases los
par�metros estrictamente necesarios, y que de paso regrese los valores
que modifica (con "return"). Esto es muy �til cuando tu
engendro^H^H^H^H^H^H^H script crece mucho (le agregas m�s
funcionalidades).
Pero ten en cuenta una cosa, si te funciona, es decir que la sintaxis
la puedes probar con "perl -c tu_script" y si no hay errores, corre el
programa a modo de prueba y ver que saca la informaci�n que deber�a
sacar; pues no le des muchas vueltas. En perl tienes demasiadas formas
de hacer lo mismo, sea en programaci�n lineal, usando sub's, xsub's,
orientado a objetos, programaci�n art�stica (es decir, hacer un bonito
dibujo en ascii, que adem�s sea un programa), y algunas otras cosas
m�s; y como cada cual "tiene su librito", te encontrar�s con unos que
te sugieren una cosa y otros otra.
PD: foreach(split//,"Qfsm!svmf{\"\"\"\"\"\"!;.�"){print
chr(ord($_)-1)}; print "\012"
--
Atentamente, yo <Mat�as>
CookBookXML: http://nnss.d7.be/~matias/CookBookXML/bin
http://www.nnss.d7.be
http://savannah.gnu.org/projects/tasklist
--
Para desuscribirte ten�s que visitar la p�gina
https://listas.linux.org.ar/mailman/listinfo/lugar-gral/
Si ten�s alg�n inconveniente o consulta escrib� a mailto:[EMAIL PROTECTED]
Apoya al ASLE enviando tu firma http://www.linux.org.ar/asle
