Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Mail the contents of a file in perl
Top Forums Shell Programming and Scripting Mail the contents of a file in perl Post 302407723 by radoulov on Friday 26th of March 2010 07:50:10 AM
Old 03-26-2010
Try this:

Code:
#!/usr/bin/env perl

use warnings;
use strict;


my $to = 'user.n@domain.com';
my $from = 'username';
my $subject = 'Test';

my $log_file = '/message.txt'; # are you sure it's /message 
                               # and not ./message?

my $file_content;

{                         
  local $/ = undef;
  open FILE, '<', $log_file or die "open $log_file: $!\n";
  $file_content = <FILE>;
  close FILE or warn "close $log_file: $!\n";
  }
  
open MAIL, "|/usr/sbin/sendmail -t";

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL $file_content;

close MAIL;

print "A message has been sent from $from to $to\n";

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Looking for a perl script (windows) to delete the contents of a file

Hi All, Im having a file named logserver.txt. I want a perl script to take a backup of that file, along with the datestamp; move the file to a different location or empty the contents of the file after backup. Remember, the file gets generated when the related service starts. My condition is... (14 Replies)
Discussion started by: ntgobinath
14 Replies

2. Shell Programming and Scripting

PERL - copy fiel contents to array then compare against other file

Basically to illuminate i want to take a file with mutliple lines, C:\searching4theseletters.txt a b c Read this into an array @ARRAY and then use this to compare against another file C:\inputletters.txt b o a c n a (9 Replies)
Discussion started by: bradleykins
9 Replies

3. UNIX for Dummies Questions & Answers

Move contents of a directory into one file for e-mail distribution ...

Hello, Here is what I am trying to accomplish. I am going to have one directory in which there will be files of varying types (Excel, Word, PPT, and possible others), and I need to be able to be bundle however many files there are in there together in to one file to be used as an e-mail... (3 Replies)
Discussion started by: rip73
3 Replies

4. Shell Programming and Scripting

how to read the contents of a file using PERL

Hi My requirement is to read the contents of a fixed length file and validate the same. But am not able to read the contents of the file and when i tried it to print i get <blank> as an output... I used the below satatements for printing the contents ... (3 Replies)
Discussion started by: meva
3 Replies

5. Shell Programming and Scripting

Perl how to replace e-mail address from the file

I have a script which updates the users e-mail address according to wherever the users type in the browser. The script does other stuffs but this what i am struggling with ..lol. Basically, we are using the command below to try to update the e-mail, however since the e-mail address has "@" the perl... (2 Replies)
Discussion started by: cacm1975
2 Replies

6. Shell Programming and Scripting

Parse file contents in perl...

Hi, I have the file like this: #Contents of file 1 are: Dec 10 12:33:44 User1 Interface: Probe Dec 10 12:33:47 uSER1 SOME DATA Dec 10 12:33:47 user1 Interface: MSGETYPE Dec 10 12:34:48 user1 ID: 10. Dec 10 12:33:55 user1 Interface: MSGTYPE Dec 10 12:33:55 user1 Id: 9 ... (1 Reply)
Discussion started by: vanitham
1 Replies

7. Shell Programming and Scripting

Perl Help - Assigning variables to text file contents

I am looking to create a perl script which will take numbers from a simple text file, convert them from decimal to hex, and then rewrite those values in the file or create a new file with the hex numbers(whichever's easier). My text document for example would be something as simple as 1312... (6 Replies)
Discussion started by: samh785
6 Replies

8. Shell Programming and Scripting

New to Perl Mail @ sign search and replace in a file

HI I'm terribly new to perl .. I;ve been trying to use this command to search and replace entries in a file I tried this and it works perl -p -i -e 's/old/new/' filename Problem is that I have a list of email addresses and I need to serach and replace the entire email address as my... (5 Replies)
Discussion started by: mnassiri
5 Replies

9. Shell Programming and Scripting

Folder contents getting appended as strings while redirecting file contents to a variable

Hi one of the output of the command is as below # sed -n "/CCM-ResourceHealthCheck:/,/---------/{/CCM-ResourceHealthCheck:/d;/---------/d;p;}" Automation.OutputZ$zoneCounter | sed 's/$/<br>/' Resource List : <br> *************************** 1. row ***************************<br> ... (2 Replies)
Discussion started by: vivek d r
2 Replies

10. Shell Programming and Scripting

Perl script for Calling a function and writing all its contents to a file

I have a function which does awk proceessing sub mergeDescription { system (q@awk -F'~' ' NR == FNR { A = $1 B = $2 C = $0 next } { n = split ( C, V, "~" ) if... (3 Replies)
Discussion started by: crypto87
3 Replies

LEARN ABOUT SUSE

qmail-local

qmail-local(8)                                                System Manager's Manual                                               qmail-local(8)

NAME

       qmail-local - deliver or forward a mail message

SYNOPSIS

       qmail-local [ -nN ] user homedir local dash ext domain sender defaultdelivery

DESCRIPTION

       qmail-local reads a mail message and delivers it to user by the procedure described in dot-qmail(5).

       The  message's  envelope  recipient  is local@domain.  qmail-local records local@domain in a new Delivered-To header field.  If exactly the
       same Delivered-To: local@domain already appears in the header, qmail-local bounces the message, to prevent mail forwarding loops.

       The message's envelope sender is sender.  qmail-local records sender in a new Return-Path header field.

       homedir is the user's home directory.  It must be an absolute directory name.

       dash and ext identify the .qmaildashext file used by qmail-local; see dot-qmail(5).  Normally dash is either empty or a lone hyphen.  If it
       is  empty,  qmail-local  treats  a nonexistent .qmailext the same way as an empty .qmailext: namely, following the delivery instructions in
       defaultdelivery.

       The standard input for qmail-local must be a seekable file, so that qmail-local can read it more than once.

OPTIONS

       -n     Instead of reading and delivering the message, print a description of the delivery instructions.

       -N     (Default.) Read and deliver the message.

EXIT CODES

       0 if the delivery is completely successful; nonzero if any delivery instruction failed.  Exit code 111 indicates temporary failure.

SEE ALSO

       dot-qmail(5), envelopes(5), qmail-command(8), qmail-queue(8), qmail-send(8), qmail-lspawn(8)

                                                                                                                                    qmail-local(8)
All times are GMT -4. The time now is 10:19 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy