read sockets in array using <$socket[i]> in perl

Question

I want to read my sockets and do a "getline" on them.

my @socket1;
$socket1[0] = IO::Socket::INET->new(
    Type     => SOCK_STREAM,
    PeerAddr => "127.0.0.1",
    Proto    => "tcp",
    PeerPort => $dbase_param{camera_stream}
) or die "Cannot open socket on port " . $dbase_param{camera_stream} . ".\n";

print { $socket1[0] } "\n";
my $ligne = <$socket1[0]>;

while ( !( $ligne =~ /Content-Length:/ ) ) {
    $ligne = <$socket1[0]>;
}

It will tell me Use of uninitialized value $ligne in pattern match (m//) for the second $ligne = <$socket1[0]>;

I don't understand wy

mpapec · Accepted Answer · 2014-10-09 10:53:00Z

5

Angle brackets are used also for glob(),

perl -MO=Deparse -e '$ligne = <$socket1[0]>;'
use File::Glob ();
$ligne = glob($socket1[0]);

so if you're not using plain scalar as socket, you might to be more explicit by using readline(),

$ligne = readline($socket1[0]);

edited Oct 9, 2014 at 10:53

answered Oct 9, 2014 at 10:47

mpapec

50.7k8 gold badges71 silver badges133 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Miller · Accepted Answer · 2014-10-10 02:00:08Z

2

The I/O Operator <EXPR> can mean either readline or glob depending on EXPR.

In this instance, you need to use an explicit readline in order to accomplish what you want.

Additionally, you should always perform the reading of a handle in a while loop and put any additional flow logic inside the loop. This is because a while loop that is reading from a file will automatically check for an eof condition. The way that your code is currently written you could end up with an infinite loop if it never finds that regular expression.

To fix both issues, I would therefore rewrite your processing to the following:

my $ligne;

while ( $ligne = readline $socket1[0] ) {
    last if $ligne =~ /Content-Length:/;
}

answered Oct 10, 2014 at 2:00

Miller

35.3k4 gold badges42 silver badges61 bronze badges

Collectives™ on Stack Overflow

read sockets in array using <$socket[i]> in perl

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related