Foro - Perl en Español

¡¡Hola!!
Tengo dudas con respecto al módulo IO::Socket::INET
¿Me pueden orientar qué función tiene?

¡¡Saludos!!

IO::Socket::INET provee de un interfaz de objetos para crear y usar sockets en el dominio AF_INET. Está construido por encima del interfaz IO::Socket y hereda todos los métodos de él.

¿Cómo se podría adaptar para hacerlo a una carpeta compartida de Windows donde se tiene la función a ser llamada, en vez de una conexión a Unix?

Así es como está:
sub aplica_uel{
my ($remote_host, $remote_port)=@_;

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Blocking => 0,
Timeout => 1,
ReuseAddr => 1,
MultiHomed => 1,
Type => SOCK_STREAM)
or die "Couldn't connect to $remote_host:$remote_port : $@\n";

# ... do something with the socket

print $socket "uel_v2\.ksh $pay_file\n";

$socket->send("uel_v2\.ksh $pay_file\n");

Me temo que no es lo que quieres hacer...

Si lo que quieres es acceder a los contenidos de una carpeta Windows, tienes que usar el protocolo SMB. Este protocolo sí que funciona por encima de los sockets, pero me temo que no quieres programar el protocolo SMB directamente sobre IO::Socket::INET.

Lo más seguro es que quieras usarlo a alto nivel, para el intercambio de ficheros.

Yo, hace unos años, cuando todavía usábamos Windows, usaba el Filesys::SmbClient para acceder a las carpetas compartidas en esos sistemas desde los Linux. Si tenía que acceder a una carpeta compartida entre dos Windows, bastaba con tener el recurso definido en Windows: la carpeta compartida es justamente una carpeta más del sistema, por lo que con File::Copy, bastaba.

Hoy en día, sin Windows, ya no usamos ese protocolo.