Foro - Perl en Español

Estimado, quiero ingresar una lista de acceso a mi router y estoy ocupando el Net::Telnet::Cisco para ingresar al router, pero la condición de trabajo es que debo ocupar un segundo módulo para realizar esto...

Trato de usar el IPDevice::CiscoRouter::Accesslist...

Este es mi programa el cual quiero que ingrese la ACL
#! /usr/bin/perl

use Net::Telnet;
use Net::Telnet::Cisco;
use IPDevice::CiscoRouter;
use IPDevice::CiscoRouter;Accesslist;

my $session = Net::Telnet::Cisco->new(Host => '192.168.1.1');
$session->login('cisco', 'cisco');

# Execute a command
my @output ...

Hola y gracias por el foro me ha servido de mucho. Soy nuevo en Perl y tengo los conceptos básicos.

Ahora me han asignado una tarea en la cual debo ejecutar unos módulos de Cisco. Ya he logrado conectarme con el telnet pero lo que no he sabido aplicar es el módulo de Cisco::Abbrev.

Por favor, si pudieran ayudarme.

Lo que tengo hecho es:

#!/usr/bin/perl
use Net::Telnet::Cisco;
use Cisco::Abbrev;
my $long = cisco_long_int('Gi0/1'); ##$long='GigabitEthernet0/1'; ...

Estimados,
Estoy teniendo problemas con un parser.

Tengo el siguiente XML:

<?xml version="1.0" encoding="utf-8"?>
<gpx>
<wpt lat="" lon="">
<ele>0</ele>
<time>1-01-01T00:00:0.0Z</time>
<geoidheight>0</geoidheight>
<name> </name>
<cmt>0</cmt>
<desc>

RSSI: -46 dB
Quality: 100%
Channel 1
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
<fix></fix>
<sat>0</sat>
<hdop>0</hdop>
<vdop>0</vdop>
<pdop>0</pdop>
<extensions>
<MAC>00:00:00:00:00:00</MAC>
<SSID>PRUEBA</SSID>
<RSSI>-46</RSSI>
<ChannelID>1</ChannelID>
<privacy>RSNA-CCMP</privacy>
<signalQuality>100</signalQuality>
<networkType>Infrastructure</networkType>
<rates>1/2/5,5/6/9/11/12/18/24/36/48/54</rates>
</extensions>
</wpt>
</gpx>


Quiero obtener como resultado:
- SSID
- MAC
- RSSI
- ChannelID
- networkType

Mi script es el siguiente: ...

Hola de nuevo,

Tengo el siguiente problema: tengo una utilidad web alojada en un servidor XAMPP. Si intento que el navegador me abra un archivo con extensiones como xls o zip y estos archivos no están en la carpeta principal de la página web (http://localhost/WEB) y los intento abrir desde una sub-carpeta (http://localhost/WEB/tablas), obtengo un error que dice que no hay ningún programa ...

Hola a todos,

Mi consulta es la siguiente:

¿Cómo puedo crear un CGI que me permita seleccionar múltiples archivos para hacer el "upload" o subida de estos de una sola vez?
Lo necesito porque quiero crear una utilidad web que una varios ficheros de texto en uno solo, y para ello necesito poder subir varios archivos de una sola vez (no está definido cuántos archivos serán los que se unirán cada vez que se utilice) ...

Estimado explorer:

Tengo un problema con respecto a la permutación de secuencias nucleotídicas. Por ejemplo:

Tengo 3 secuencias nucleotídicas o aminoácidos.

INPUT
>multisecuencia
acgtc tgatgc gcatcg

(pueden ser de diferente tamaño y estar en un mismo archivo o en archivos distintos, en formato fasta)

Ahora, necesito realizar la permutación de dicha secuencias, en este caso sería 3!=3x2x1, teniendo lo siguiente:

OUTPUT
>multisecuencia
acgtc tgatgc gcatcg ..... seq1
tgatgc acgtc gcatcg ..... seq2
tgatgc gcatcg acgtc ...

Consulta a los que hubiesen pasado por una situación similar, con la idea de que no modifiquen el código de una consulta manualmente, ¿se puede empaquetar la misma en un exe y que éste mismo sea accedido vía PHP en el mismo servidor?

Se está preparando un curso de Perl en la Universidad de Valladolid,
organizado por alumnos de Estadística, con el auspicio del Grupo
Universitario de Informática y el apoyo del departamento de
Estadística.

El objetivo sería enseñar Perl orientado a las tareas de gestión y
procesado de archivos con información estadística. Algo también de
administración de sistemas, expresiones regulares y... lo que dé
tiempo a dar.

Los interesados, que se pongan en contacto con el departamento ...

¡Hola!

Soy Gonzalo desde Uruguay, primera vez que pregunto algo en el foro...

Soy muy nuevo en Perl y tengo un problemita.

Estoy tratando de usar gtk2-perl y el tema es el siguiente:

Quiero tratar de poner los datos del array en una simplelist y luego mostrarlos en un frame con un scrolledwindow y no lo puedo hacer...

Mi código es este:
...
my $args = shift;
$args->{results}= Gtk2::SimpleList->new(
name => 'text'
);

my ...

¿Cómo podría buscar cada ORF (ATG) hasta un STOP (TAA, TAG, TGA) guardando cada triplete desde ATG hasta STOP en un arreglo? Debido a que es un genoma y necesito sacar los marcos de lecturas.

Llevo esto:
#!/usr/bin/perl
use strict;
use warnings;
my $cadena = '';
my $file = 'archivo.fna'; # archivo .fna que contiene el #genoma de un procariota
if ( -e $file ) {
open IN, "<$file" or die "No pasa nada ...