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

ralijani has asked for the wisdom of the Perl Monks concerning the following question:

I want to send a broad cast message on tcp/ip protocol to a host or Net address that user can read it. I want to do it on linux machine with perl. is there any way to do it?

Replies are listed 'Best First'.
Re: How to send Broadcast message
by cbro (Pilgrim) on Jun 25, 2003 at 12:23 UTC
    Try perldoc IO::Socket. Here's a little example:
    use IO::Socket;
$socket = IO::Socket::INET->new
(
    PeerAddr => '1.1.1.1',
    PeerPort => #<open port e.g. 80>,
    Proto => "tcp",
    Type => SOCK_STREAM
) or die "Could Not open port";
print $socket "Server message\n";
close($socket);

    [download]

    Now, how you interpret messages on the other side is up to you. You can write a server program that mirrors this example above, you can use something like tcpdump with the '-x' option for hexidecimal encoding and decode the message, or you may already have something.
[reply]
[d/l]
[select]
      sory but i want to send message to all microsoft and linux client without any client application on my client 
      use IO::Socket::Multicast;

  # create a new UDP socket ready to read datagrams on port 1100
  my $s = IO::Socket::Multicast->new(LocalPort=>1100);

  # Add a multicast group
  $s->mcast_add('225.0.1.1');

  # Add a multicast group to eth0 device
  $s->mcast_add('225.0.0.2','eth0');

  # now receive some multicast data
  $s->recv($data,1024);

  # Drop a multicast group
  $s->mcast_drop('225.0.0.1');

  # Set outgoing interface to eth0
  $s->mcast_if('eth0');

  # Set time to live on outgoing multicast packets
  $s->mcast_ttl(10);

  # Turn off loopbacking
  $s->mcast_loopback(0);

  # Multicast a message to group 225.0.0.1
  $s->mcast_send('hello world!','225.0.0.1:1200');
  $s->mcast_set('225.0.0.2:1200');
  $s->mcast_send('hello again!');

      [download]

      update (broquaint): added <code> tags

[reply]
[d/l]
        A 'client' is a 'client application' - you can broadcast messages wherever you like, but unless something's listening and acting on those messages, they're not a lot of good. You can't just send a message to a machine and expect it to magically do something...what were you expecting, exactly? mcast_send(PopupWindow=>1,PlaySound=>"ding.wav")? Anything that causes the client to take action must aleady be running on the client machine.

        Two paragraphs down fom the IO::Socket::Multicast synopsis you've pasted in there, it explains how to write a multicast client that will listen to your multicast server. That should get you started, if this is what you need.

        Cheers, Ben.

[reply]
Re: How to send Broadcast message
by fglock (Vicar) on Jun 25, 2003 at 14:27 UTC

    I can send a text message from a Windows machine to another Windows machine with this:

    perl -e " system 'net send fglock hello world ' "

    You can probably do this from Linux using one of the SMB tools. I'll make some tests.

    Update: smbclient -M COMPUTERNAME will do it. There must be a way to do broadcast, but I can't find it

[reply]
[d/l]
[select]
      I think if you do
      net send hello
      it sends to all. I remember doing this in the dorm.. but can't really test that here at work..
[reply]
      hi dear thanks for your reply. but when i run smb and run smbclient -M hostname i get : root@SEPEHR samba# smbclient -M dns added interface ip=192.168.10.2 bcast=192.168.10.255 nmask=255.255.255.0 Cannot resolve name dns#0x3 root@SEPEHR samba# i did not configure samba just i run it. what is my problem. i can ping : ping dns and it reply how could i solve my problem. Best Regurd
[reply]

Back to Seekers of Perl Wisdom