hola lista, como estan?? bueno mi pregunta de hoy es mas orientada a la programacion en perl. estoy desarrollando uns version grafica de un scrpit que ya tengo desde hace meses, quiero usar paquetes o modulos mi script pricipal es este: #///////////////////////////////////////////////////////// use strict; use Tk; require "busca_Mac.pl"; --> este script busca : la MAC para verificar que no este dada de alta en el servidor DHCP my $alta = MainWindow->new; $alta -> title("Auxiliar para el DHCP de Linux::Alta"); $alta ->Label(-text => 'Ingrse la MAC para verificar que no este dada de alta en el servidor DHCP : ')-> pack; my $findMAC = $alta->Entry(-width => 15); $findMAC->pack; $alta ->Button(-text => 'BUSCAR',-command => sub{da_de_alta($findMAC)})->pack; MainLoop; sub da_de_alta { my ($findMAC) = @_; my $busca_MAC = $findMAC->get; busca_Mac->busca; --> a qui llamo a la funcion que buscara la MAC la cual tiene una funcion llamada "busca" print "buscando $busca_MAC\n"; } #////////////////////////////////////////////////////////// lo que quiero hacer es enviarle la variable $busca_MAC a busca_Mac.pl pero no se como hacerlo y que despues de realizar esta busqueda regrese un mensaje (+ o -) a mi script principal, me he documentado con manuales pero no logro comprenderlo :(. #////////////////////////////////////////////////////// package busca_Mac; require "matrices.pl"; --> es donde almaceno las IP, MAC y nombres de HOST de dhcpd.conf, y que de igualmanera quiero accedes a ciertos datos para poder hacer la busqueda. sub busca { while(($j<=$#MAC)&&($ok1==0)) -->$MAC se encuentra en "matrices.pl" por lo que tambien quiero ver la forma de acceder a estos datos. if($MAC[$j]=~"$busqueda") --> busqueda la sustituiria por $busca_MAC { print"\nSE ENCONTRO INFORMACION RELACIONADA :\n"; $ok1=1; } if($j==$#MAC) { print"NO SE ENCONTRO DATOS RELACIONADOS"; } $j++; } 1; #/////////////////////////////// dependiendo de el resultado de la busqueda regresaria un valor al script principal se que son muchas preguntas pero nomas que no puedo, no se de que forma me puedan ayudar gracias por todo que esten bien NOTA adjunto el script que ya funciona pero es para modo texto _______________________________________ TSU en Telemática Héctor Reyes Armenta Puebla, Mexico _________________________________________________________________ Platica con tus amigos en linea con T1msn Messenger http://messenger.t1msn.com.mx/