Foro - Perl en Español

Hola a todos :D

Me surgió la duda de las variables argumentativas, lo que yo quiero hacer es un script que trabaje por consola, o sea hacer algo como esto:

Code: Seleccionar todo

C:\Perl>Code.pl -n

Y que me compare el argumento "-n".

Estoy pensando en usar algo como esto, claro que está mal usado, aun no lo sé implementar:
#!/usr/bin/perl
if ($ARGV == "-n") {
print "Normal. \n";
} ...

¡Buenas gente! Estoy intentando concatenar dos variables utilizando el operador punto (.). Es curioso porque he estado haciendo pruebas simples y ha funcionado perfectamente (pongo el miniejemplo):

my $rtb="02";
my $bsc="CAT01B2";
print"$bsc\n";
$bsc=$bsc._.RTB.$rtb;
print"$bsc\n";

Pero cuando lo pego a la rutina principal (sin hacer cambio alguno), me aparece el siguiente error:

Bareword "_" not allowed while "strict subs" in use at Aplicacio_v6.pl line 188.
Bareword "RTB" not allowed while "strict subs" in use at Aplicacio_v6.pl ...

¿Alguien me podría decir qué tengo que hacer para realizar el siguiente formulario? Es un cuantificador de materiales. Está en la siguiente dirección:

http://mx.geocities.com/javiervg27/cotizador.html

Desde luego, como no sé cómo se hace, está inhabilitado. :shock:

Estimados,
Los molesto para consultarles si alguien tiene un ejemplo donde pueda ver cómo poner colores en consola en los parámetros del print().

Por ej., me gustaría lo siguiente:
print "planta";
Donde la palabra planta este en color verde.

Gracias.

Hola.
Soy bastante novato en este lenguaje, y os estaría muy agradecido si pudieseis echarme una mano en estos dos problemas que tengo...
1. Necesito convertir un número científico en un entero sin decimales. No sé si existe alguna función para ello.
Los números son del siguiente formato: 1.0030506e+002 y necesito que quede así: 100.30506. ¿Cómo puedo hacerlo?
2. Una vez convertido en decimal, necesito eliminar los decimales y dejarlo de esta manera: 100.

Quizá ...

Hola amigos del foro. Hice un script para descargar archivos desde un sitio en la web, me los descarga sin extensión pero me los baja como documento HTML. Mi pregunta es si los archivos que descargo los puedo convertir a .txt :?:

Acá esta el script:

#!/usr/bin/perl -w

foreach my $mes ( 1 ) {
foreach my $dia ( 1 .. 9 ) {
foreach my $hora ...

Tengo que verificar que ciertas tareas programadas (scheduled tasks) de un servidor win2k3 se ejecuten correctamente y si no, recibir un aviso. Usamos Nagios, así que me he puesto a escribir un plugin (no he visto nada en nagiosexchange).

Hay dos maneras de ver si se han ejecutado bien las tareas: interactivamente (no es lo que quiero) o con el comando schtasks.

He visto que puedo sacar la información a un archivo con este comando: ...

Buenos días, tengo un script realizado en perl que hace backups de las configuraciones startup de Cisco. El script funciona bien y realiza lo que quiero pero deseo añadirle una función a la misma, es la siguiente: deseo que cuando haya algún problema en la conexión, ya sea el servidor en el cual está cargado el script desea conectarse al host remoto y éste no responde como si hubiese algún problema al lanzar el tftp, ...

Buenas, mi consulta es la siguiente: tengo un sub que genera un archivo xls (el archivo pm, tiene varias sub).

Quería saber la forma de que el archivo en cuestión se pueda descargar desde una página, ¿alguna forma? Y si es posible que no quede guardado, si es posible que cuando se apriete ese botón se genere, se descargue ¡y no quede en el servidor!

Cualquier datos que necesiten avisen...

Saludos... ¡y mil gracias por ...

Hola a todos, soy nuevo en este foro y sobre todo en Perl.
Estoy leyendo a marchas forzadas porque me corre mucha prisa realizar un script, pero voy a trompicones y me atraganto.

Estoy intentando modificar un fichero ldif para la entrada masiva de usuarios en LDAP. El contenido del mismo podría ser como el siguiente

dn: uid=jperez,ou=People,dc=ejemplo,dc=com
uid: jperez
objectclass: account
objectclass: top
uidnumber: 512
gidnumber: 300
homedirectory: /home/jperez
userpassword: jperez

dn: uid=domingo,ou=People,dc=ejemplo,dc=com
uid: ...