Hello List,
I am creating a program, where for the first time, I will be reading
in data from a socket port.
I am a bit confused about how to print the processed data while still
reading in data from the port. Thus far, I have only processed data
from a file where the while loop ends when EOF criteria has been met.
So my question is how do I continue to read in data from the port and
print the generated array as it is being created?
snippet:
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Data::Dumper;
my $host = 'ip..address';
my $port = portnum;
my $sock = new IO::Socket::INET(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
);
die "cannot open socket $!" unless ($sock);
my @array;
while ( my $line = <$sock> ) {
do stuff and create array...
push @array, [ .... stuff .... ];
}
## print @array
for my $item (@array) {
print join(",",@$item),"\n";
}
Thanks in advance,
Chris
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
