in reply to Printing a Message to All Consoles
One way to do it would be:
#! /usr/bin/perl -w use strict; open MSG, "|/usr/bin/wall" or die "Failed to open pipe to wall"; print MSG "This is message 1.\n"; print MSG "This is message 2.\n"; close MSG;
Also check the 'wall' man page for more info.
-Nitrox
|
---|
In Section
Seekers of Perl Wisdom