Thanks...
Tapi, setelah saya implementasikan pada program saya :
#!/usr/bin/perl -w
$mailprog = '/usr/sbin/sendmail';
$recipient = 'root@localhost';
open (MAIL, "|$mailprog -t") or dienice("Can't access $mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Subject: Warning\n\n";
use strict;
my $data='tail /var/log/messages';
print MAIL "$data\n";
close(MAIL);
sub dienice {
my($errmsg) = @_;
print "Error\n";
print "$errmsg\n";
exit;
}
Email yg terkirim berisi 'tail /var/log/messages'
Bukan hasil dari perintah "tail /var/log/messages"
ada lagi yg mesti dirubah ?
----- Original Message -----
From: "Abu @ Trabas Dot Com"
Sent: Monday, December 03, 2001 11:27 AM
Subject: Re: [programming] isi variabel dgn exec
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $var=`tail /var/log/messages`;
>
> print $var;
>
--
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
