[perl] Agradecimiento

[=?iso-8859-1?q?Estrella=20Dominguez?=]

#!/usr/bin/perl
#
# Este programa es ejecutado cada hora en el crontab
del usuario.
# El proposito de este programa es recolectar cada
hora la informacion de las troncales en el DMS 250
#
$fecha=`date +%d%m%y`;
chop($fecha);

my ($information, $t);

$username="xxxxxxx";
$passwd="xxxxxxx";
$server="192.168.20.183";
$repositorio="/datax/NetSupSys/dms250";

chdir $repositorio;

use Net::Telnet ();
$t = new Net::Telnet;
$t->open("$server");

$t->waitfor('/>/');
$t->print("$username");

$t->waitfor('/>/');
$t->print("$passwd");

$t->waitfor('/>/');
$t->waitfor('/>/');
$t->print("omshow trk trkhr");

$t->waitfor('/>/');
$t->print("logout");

($information) = $t->waitfor('/>/');

open(INFORMACION,">>dms$fecha.txt");
print INFORMACION<<"_INFO_";
$information
============================================================================================
_INFO_
close(INFORMACION);

Creo ustedes son mas expertos pero les envio una copia
del script por si alguna vez necesitan accesar a un
dms250 0 500.

EDR
--- "Rafael A. Reta Rodriguez" <rafareta@icave.com.mx>
escribió: > Por que no nos platicas como fue que lo
resolviste
> finalmente?
> 
> Saludos
> 
> RafaReta
> 
> Estrella Dominguez wrote:
> 
> > Saludos Lista.
> > Unicamente escribo para agradecer a todos aquellos
> que
> > me ayudaron a saber mas sobre como accesar a un
> equipo
> > remoto y ejecutar aplicaciones del mismo bajo
> perl.
> >
> > Nuevamente les agradezco su ayuda.
> > EDR
> >
> > =====
> > Si lo que quieres es vivir cien años, no vivas
> como vivo yo.
> >
> >
>
_________________________________________________________
> > Do You Yahoo!?
> > Obtenga su dirección de correo-e gratis @yahoo.com
> > en http://correo.espanol.yahoo.com
> > --------- Pie de mensaje
> --------------------------------
> > Visite:
> http://tlali.iztacala.unam.mx/~randrade/perl.shtml
> > Cancelar inscripcion:
> > mail to: majordomo@tlali.iztacala.unam.mx
> > text   : unsubscribe perl
> 
> --------- Pie de mensaje
> --------------------------------
> Visite:
> http://tlali.iztacala.unam.mx/~randrade/perl.shtml
> Cancelar inscripcion:
> mail to: majordomo@tlali.iztacala.unam.mx
> text   : unsubscribe perl
> 


=====
Si lo que quieres es vivir cien años, no vivas como vivo yo.





_________________________________________________________
Do You Yahoo!?
Obtenga su dirección de correo-e gratis @yahoo.com
en http://correo.espanol.yahoo.com
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl