hi

I try to read a simply text file and send contents by mail

I have a perl script, but it doesn't work:

open(FILE, "/var/log/log.txt");
$content=<FILE>;
close(FILE);

open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "to:adress\@mydomain.xx\n";
print MAIL "from:server\@mydomain.xxt\n";
print MAIL "subject:log file !\n";
print MAIL "$content\n\n";
close(MAIL);


I get error mesage for 2 lines:

$content=<FILE>;

" Global symbol "$content" requires explicit package name "

and

print MAIL "$content\n\n";

" Global symbol "$content" requires explicit package name "

kind regards
ccc

Sounds like you have 'strict' turned on. Try something like;


Hope that helps.

Cheers

Andy (mod)
andy@ultranerds.co.uk

---

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

thanks.
but it doesn't work .
I get the mail without file contents and don't get any errors.

kind regards
ccc

Change:

print MAIL '$content\n\n';

to:

print MAIL "$content\n\n";

----
Cheers,

Dan
Principal

Virtual Solutions

hi dan

I've changed.
I get the mail, but NO CONTENTS !

best regards
ccc

Hello ccc ,

Remark out the file opening stuff and just
define : my $contents = "Hello world"; and send a test mail to see if you get Hello world .


I suspect you are getting nothing into $content from the file.

Try with caution to the log.txt's file size :

my $content; # define for strict

open(FILE, "/var/log/log.txt") || die "Cant open file. Reason: $!"; # (-:
while(<FILE>) {
$content .=$_; # get all of the file into content including past new lines
}
close(FILE);

second caution :
The above code will suck the entire file into $contents and memory and try to mail it !
Do not try to mail a file contents that is BIG. (-:


Then continue with your mailing part.

Thanks cornball

hallo cornball

thanks.
now it works !

kind regards
ccc

 
Change: $content=<FILE>;
To: @content=<FILE>;

The scalar context ($prefix) will only return one record at a time. The list context (@ prefix) will return a list of all records.