Re: Perl sockets on an HPUX
Great where do I get this IO::Socket module?
thank you
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
Goffredo Saffioti <[EMAIL PROTECTED]>
01/09/2004 12:52 PM
To: [EMAIL PROTECTED]
cc: [EMAIL PROTECTED]
Subject: Re: Perl sockets on an HPUX
[EMAIL PROTECTED] ha scritto:
>People of the Perl,
>
>does anyone have a perl program that will create a socket ( srwxr-xr-x )
>for a HPUX 11.0 system? I am in need of this! I have looked into system
>calls such as mknod and mkfifo and these are not capable of creating
these
>special files.
>
>Thanks!
>
>Derek B. Smith
>OhioHealth IT
>UNIX / TSM / EDM Teams
>
>
>
>
This is a socket in perl u can declare a socket in the form: $sock =
Yuo need the module
use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
Not so distant by C socket :-) .
You can try this sochet with this simple script underneath
it's a simple tcp port scanner .
Hope this can help u.
Cya.
Go.
#!/usr/bin/perl -w
use IO::Socket;
use strict;
my ($line, $port, $sock, $range, $splitted, @servers, @splitted);
my $VERSION='1.0';
my $pid = 0;
my($server, $begin, $end, $processes) = @ARGV;
&usage if (!$server);
$begin = 0 if (!$begin);
$end = 65000 if (!$end);
$processes = 2 if ((!$processes) || ($processes<2));
print "Scanning from $begin to $end\n";
for ($port=$begin;$port<=$end;$port++) {
&scan;
if ($sock){
print "Connected on port $port\n";
}
else{
print "$port not connected\n";
}
}
sub usage{
print "Usage: portscan hostname [start at port number]\n";
exit(0);
}
sub scan{
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
RE: Perl sockets on an HPUX
You can get it From CPAN
http://search.cpan.org/
Just my favour,
There is Net::EasyTCP module which offers
an elegant API on top of IO::Socket.
See:
http://search.cpan.org/~mnaguib/EasyTCP-0.25/EasyTCP.pm#SYNOPSIS
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Friday, January 09, 2004 4:39 PM
To: Goffredo Saffioti
Cc: [EMAIL PROTECTED]
Subject: Re: Perl sockets on an HPUX
Great where do I get this IO::Socket module?
thank you
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
Goffredo Saffioti <[EMAIL PROTECTED]>
01/09/2004 12:52 PM
To: [EMAIL PROTECTED]
cc: [EMAIL PROTECTED]
Subject: Re: Perl sockets on an HPUX
[EMAIL PROTECTED] ha scritto:
>People of the Perl,
>
>does anyone have a perl program that will create a socket ( srwxr-xr-x
>)
>for a HPUX 11.0 system? I am in need of this! I have looked into system
>calls such as mknod and mkfifo and these are not capable of creating
these
>special files.
>
>Thanks!
>
>Derek B. Smith
>OhioHealth IT
>UNIX / TSM / EDM Teams
>
>
>
>
This is a socket in perl u can declare a socket in the form: $sock = Yuo need the
module use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
Not so distant by C socket :-) .
You can try this sochet with this simple script underneath
it's a simple tcp port scanner .
Hope this can help u.
Cya.
Go.
#!/usr/bin/perl -w
use IO::Socket;
use strict;
my ($line, $port, $sock, $range, $splitted, @servers, @splitted); my $VERSION='1.0';
my $pid = 0;
my($server, $begin, $end, $processes) = @ARGV;
&usage if (!$server);
$begin = 0 if (!$begin);
$end = 65000 if (!$end);
$processes = 2 if ((!$processes) || ($processes<2));
print "Scanning from $begin to $end\n";
for ($port=$begin;$port<=$end;$port++) {
&scan;
if ($sock){
print "Connected on port $port\n";
}
else{
print "$port not connected\n";
}
}
sub usage{
print "Usage: portscan hostname [start at port number]\n";
exit(0);
}
sub scan{
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/>
<http://learn.perl.org/first-response>
DISCLAIMER
"This e-mail and any attachment thereto may contain information which is confidential
and/or protected by intellectual property rights and are intended for the sole use of
the recipient(s) named above.
Any use of the information contained herein (including, but not limited to, total or
partial reproduction, communication or distribution in any form) by other persons than
the designated recipient(s) is prohibited.
If you have received this e-mail in error, please notify the sender either by
telephone or by e-mail and delete the material from any computer".
Thank you for your cooperation.
For further information about Proximus mobile phone services please see our website at
http://www.proximus.be or refer to any Proximus agent.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Re: Perl sockets on an HPUX
[EMAIL PROTECTED] ha scritto:
Great where do I get this IO::Socket module?
thank you
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
*Goffredo Saffioti <[EMAIL PROTECTED]>*
01/09/2004 12:52 PM
To:[EMAIL PROTECTED]
cc:[EMAIL PROTECTED]
Subject: Re: Perl sockets on an HPUX
[EMAIL PROTECTED] ha scritto:
>People of the Perl,
>
>does anyone have a perl program that will create a socket ( srwxr-xr-x )
>for a HPUX 11.0 system? I am in need of this! I have looked into
system
>calls such as mknod and mkfifo and these are not capable of creating
these
>special files.
>
>Thanks!
>
>Derek B. Smith
>OhioHealth IT
>UNIX / TSM / EDM Teams
>
>
>
>
This is a socket in perl u can declare a socket in the form: $sock =
Yuo need the module
use IO::Socket;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
Not so distant by C socket :-) .
You can try this sochet with this simple script underneath
it's a simple tcp port scanner .
Hope this can help u.
Cya.
Go.
#!/usr/bin/perl -w
use IO::Socket;
use strict;
my ($line, $port, $sock, $range, $splitted, @servers, @splitted);
my $VERSION='1.0';
my $pid = 0;
my($server, $begin, $end, $processes) = @ARGV;
&usage if (!$server);
$begin = 0 if (!$begin);
$end = 65000 if (!$end);
$processes = 2 if ((!$processes) || ($processes<2));
print "Scanning from $begin to $end\n";
for ($port=$begin;$port<=$end;$port++) {
&scan;
if ($sock){
print "Connected on port $port\n";
}
else{
print "$port not connected\n";
}
}
sub usage{
print "Usage: portscan hostname [start at port number]\n";
exit(0);
}
sub scan{
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Look in your perl path in the IO directory maybe u can find it there for
default .
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
