pake backtick,
my $data = `tail /var/log/messages`;
bukan
my $data = 'tail /var/log/messages';
Perhatikan kutipnya
On Monday 03 December 2001 11:47, you wrote:
> 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 ?
--
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
