I would probably simplify the code to this:
#!/usr/bin/perl -w use strict; my $msg = "Please turn off your machines"; for ( 1..10 ) { system ( "echo $msg | smbclient -M mach-$_" ); }
This assumes that your machine's NETBIOS names run from mach-1 to mach-10. it seems fairly simple .. why do you think you need a CPAN module to make this simpler?
--t. alexIn reply to Re: Sending multiples network messages
by talexb
in thread Sending multiples network messages
by cored
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |