http://qs321.pair.com?node_id=1100809


in reply to whats wrong? it gives me many error

Greetings Monk,
Welcome to Perl Monks. Since this is your first day in the Monastery you may want to consider reading this tutorial as well as this one just as an overview of how to use the Monastery.

Getting down to more brass tacks let me also suggest this tutorial.

Even more to the point it would seem that you are struggling with the concept of context within Perl. This tutorial will help with that.

To give you fish for the day let me say that this: 

my $host, $port, $request, $proto = 'tcp';

[download]
is not doing what you think it is and this 
my ($host, $port, $request, $proto) = ('tcp');

[download]
might work better for you.

Let me finish by saying that posting a question on one forum, getting answers and then posting on another forum is not a great way to make friends and influence people. A lot of the monks here visit multiple forums and it doesn't set well to see the same questions asked multiple places after they've been answered.

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; Blog: http://blog.berghold.net Warning: No political correctness allowed.

Replies are listed 'Best First'.
Re^2: whats wrong? it gives me many error
by linuxer (Curate) on Sep 16, 2014 at 18:53 UTC 
    my ($host, $port, $request, $proto) = ('tcp');

    [download]

    But that assigns 'tcp' to $host. Shouldn't it be assigned to $proto?

    So, maybe one of these: 

    my ($host, $port, $request, $proto) = ( undef, undef, undef, 'tcp' );
# or
my ($host, $port, $request, $proto) = ( '', '', '', 'tcp' );
# or
my ($host, $port, $request, $proto);
$proto = 'tcp';

    [download]
[reply]
[d/l]
[select]
      > my ($host, $port, $request, $proto) = ('tcp');

       my ($proto, $host, $port, $request) = ('tcp');

      But ikegami already showed this on SO... :)

      Cheers Rolf

      (addicted to the Perl Programming Language and ☆☆☆☆ :)

[reply]
[d/l]

      Personally I'd go with the latter.

      Peter L. Berghold -- Unix Professional
      Peter -at- Berghold -dot- Net; Blog: http://blog.berghold.net Warning: No political correctness allowed.
[reply]

In Section Seekers of Perl Wisdom