Hi Rob,
You don't need to put the system call in backticks. You could just do $result = `some command`; to get the output of the command stored as a multiline string in $result. system() does not store the output of the command, only the exit status of the command you have called. I don't think you need to combine both at the same time at all. hth, deen On Mon, 28 Jan 2002, McCormick, Rob E wrote: > Gang, > > Using 'df -k' in bash, I can get this to work acceptably: > > # mail the disk usage for a file system to a recipient 'uid' > df -k /data/wrc |mailx -s 'host disk usage' [EMAIL PROTECTED] > > I'd like to use perl to surround the output of df -k with a simple text > message. I used perldoc -q mail to find the code to use sendmail, but I'd > like to extend the sendmail example slightly. My attempt below: > > ---------------------- > #!/usr/bin/perl -w > use strict; > > my $results = system (`/usr/bin/df -k`); > # backticks seem to be working OK? > > open(SENDMAIL, "|/usr/lib/sendmail -oi -t") > or die "Can't fork for sendmail: $!\n"; > print SENDMAIL <<"EOF"; > From: <uid\@host> > To: <email_acct\@acme.com> > Subject: host disk usage > > host disk usage > print "$results\n"; > EOF > close (SENDMAIL) or warn "sendmail didn't close nicely"; > --------------------------- > > The error condition that occurs: mail is created and sent, I receive it, but > the content of the mail is: > > host disk usage > print "65280 > "; > > Any corrections you could offer that don't involve a module? > Or is it best to install a module? > > Thanks, > Rob > > > > > > -- Deen Hameedd, Accidental Programmer [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]