Niko zuna wrote:
Hi!
Hello,
I made this short script in order to see if there is posible to run
"modified" unix commands from a Perl script.
#!/usr/bin/perl
use
strict;
use
warnings;
my $load = `uptime | awk '{print $8 $9 $10 $11 $12}'`;
my ( $load ) = `uptime` =~ /(load average: .+)/;
print "$load\n";
John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity. -- Damian Conway
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
