all works well, but when i get the email it looks like this.#!/usr/bin/env perl use strict; use warnings; use File::Find; use File::Copy; use Email::Send; use Mail::Sender; use Email::Send::SMTP::Gmail; use POSIX qw(strftime); my $date = strftime("%m-%d-%y",localtime); my $time = strftime("%I:%M:%S",localtime); my $directory ="/Users/flieckb/Desktop/files/"; my $to ='brianflieck\@gmail.com'; my $from='bflieck\@industrialcolor.com'; my $subject = "test"; chdir( $directory ) or warn "Cant chdir to $directory $!"; my(@push_list) = glob "*"; my $filecount = @push_list; my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp-relay.gm +ail.com', -login=>'youremailadd +resss, -pass=>'yourpassword' +, # -layer=> 'ssl', -port=> '25', -debug=> 1,); $mail->send(-to=>"$to", -from=>"$from", -subject=>"$subject", -body=>" +@push_list\n total files pushed: $filecount"); $mail->bye;
1a.txt 1b.txt 1c.txt 1d.txt 1e.txt 1f.txt 1g.txt 1h.txt 1i.txt 1j.txt 1k.txt 1l.txt 1m.txt 1n.txt 1o.txt total files pushed: 15
what isn't the \n working in this case?In reply to adding carriage return to gmail script by flieckster
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |