On 24 Sep 2008, at 15:44, Rob Dixon wrote:
Andy Dixon wrote:
I may be being a bit dim, but I wrote this:
#!/usr/bin/perl -w
use IO::Socket::INET;
print "ISONAS Logger (perl) v1\n";
my $socket = IO::Socket::INET->new(
PeerAddr => "10.9.1.100",
Pe
meh
Deviloper wrote:
>
> If I were in your place, I would use Data::Dumper or a IDE with a grafical
> debugger and take a look what happens. try the 30 Days Trail of Komodo Pro
> Studio
> IDE or OptiPerl is you don´t like data::dumper.
>
> Try in your while loop
>
> m
If I were in your place, I would use Data::Dumper or a IDE with a grafical
debugger and take a look what happens. try the 30Days Trail of Komodo Pro
Studio IDE or OptiPerl is you don´t like data::dumper.
Try in your while loop
my $sender = $text->peerhost()
pri
Andy Dixon wrote:
>
> I may be being a bit dim, but I wrote this:
>
> #!/usr/bin/perl -w
> use IO::Socket::INET;
> print "ISONAS Logger (perl) v1\n";
> my $socket = IO::Socket::INET->new(
> PeerAddr => "10.9.1.100",
> PeerPort => "5321"
>
Hello,
I have just tried this, and have this code:
#!/usr/bin/perl -w
use IO::Socket::INET;
$| = 1;
print "ISONAS Logger (perl) v1\n";
my $socket = IO::Socket::INET->new(
PeerAddr => "10.9.1.100",
PeerPort => "5321"
) or die
Try unbuffer IO, this might be on off the Problem.
$| = 1;
the don´t do:
> > while (true) {
> > $socket->recv($text,128);
> > print $text;
> > }
do
> > while ($socket->recv($text,128)) {
> > print $text;
> > }
Byebye,
Bo
Stewart Anderson <[EMAIL PROTECTED]> hat am
> -Original Message-
> From: Andy Dixon [mailto:[EMAIL PROTECTED]
> Sent: 24 September 2008 12:26
> To: beginners@perl.org
> Subject: Perl Sockets oddity..
>
> Hello,
>
> I may be being a bit dim, but I wrote this:
>
> #!/usr/bin/perl -w
> use IO::Socket::INET;
> print "ISONAS Logger (pe