Johannes Steigerwald
9/29/2003 8:55:00 AM
Hi all,
I have been desperately trying to convert the following perl programme
to Ruby. What should I use for the functions sockaddr_in (maybe the
famous pack("snCaaaa8") ?) and syswrite.
Thank for assisting me!
Johannes
# Here's the perl programme I have been trying to convert to Ruby
use IO::Socket;
# snip #
$ServerPort=8530;
$scheme_exp='(ivel-window-get-active-vref)';
if (!defined $Proto) {
$iaddr = inet_aton(hostname());
$Proto = getprotobyname('tcp');
}
$paddr = sockaddr_in($ServerPort, $iaddr);
#Socket settings.
if (!(socket(SOCK, &PF_INET, &SOCK_STREAM, $Proto))) {
warn "socket: $!\n";
return "socket: $!\n";
}
if (!(defined $ServerPort) || !(connect(SOCK,$paddr))) {
print "Error: could not open socket to Visual.\n";
print "Probably because Visual either crashed or was killed.\n";
exit 0;
}
select(SOCK);
$|=1;
select(STDOUT);
$cmd = "#S(netutl-client-msg-header
netutl-client-msg-type/gui-blocking \"Perl client\")\r\n";
syswrite(SOCK,$cmd,length($cmd));
select(SOCK);
$|=1;
select(STDOUT);
$cmd = "($scheme_exp)\r\n";
syswrite(SOCK,$cmd,length($cmd));
SOCK -> autoflush();
$ret_val = "";
while(<SOCK>) {
$ret_val .= $_;
}
shutdown(SOCK,2);
chomp($ret_val);
return($ret_val);
--
-------------------------------------------------------------------
|Johannes Steigerwald | Océ Printing Systems GmbH, TEC35|
|phone: +49-8121-72-4912 | Siemensallee 2 |
|fax: +49-8121-72-3173 | D-85586 Poing - Germany |
|johannes.steigerwald@ops.de | www.oce.com |
-------------------------------------------------------------------