Perl, Newline problem

Newline problem

Author	Message
Kasp #1 / 6	Newline problem Good Morning, I have made a perl script which reads email addresses and Text Message to be sent using Net::SMTP. The input file is a simple text file with "NAME<TAB>Message\n" format...i.e Name and Messages are tab seperated and each record is in a newline. My code does $smtp->datasend("$message") but I can't figure out a way to put newlines in the email. For eg, consider the message being as: Hello ABC,\n Nice to Meet you.\nRegards,\nXYZ. I want this to appear in email as : Hello ABC, Nice to Meet you. Regards, XYZ. But I can't get these \n converted to newlines. Where is the problem, scanning the data from text file or while sending the email data? How can I solve it? TIA, Kasp -- Perl is designed to give you several ways to do anything, so consider picking the most readable one. -- Larry Wall
Wed, 28 Sep 2005 16:33:09 GMT

Michael Budas #2 / 6	Newline problem Quote: > Good Morning, > I have made a perl script which reads email addresses and Text Message to be > sent using Net::SMTP. > The input file is a simple text file with "NAME<TAB>Message\n" format...i.e > Name and Messages are tab seperated and each record is in a newline. > My code does $smtp->datasend("$message") but I can't figure out a way to put > newlines in the email. that oughta do it... let's see the real code... -- Michael Budash
Wed, 28 Sep 2005 17:02:44 GMT

Kasp #3 / 6	Newline problem Here is the test input file called test.txt abc 123\n456\n789 123 Make\nThe\n Newlines\nwork!! Here is the code snippet: open(IN_FILE,"test.txt") \|\| die "Failed to open file .$!"; while(defined( $lineRead = <IN_FILE>) ) #Read one line at a time { chomp($lineRead); #split line read based on TABS ($NAME, $MESSAGE) = split(/\t/, $lineRead); sendMail( $MESSAGE); print "Mail sent to $NAME"; Quote: } close(IN_FILE); sub sendMail(){ use Net::SMTP; $smtp = Net::SMTP->new(mailServer); $smtp->data(); $smtp->datasend("Subject: Hi\n"); $smtp->datasend("\n"); $smtp->datasend("$message"); $smtp->dataend(); $smtp->quit; Quote: } -- Perl is designed to give you several ways to do anything, so consider picking the most readable one. -- Larry Wall
Wed, 28 Sep 2005 18:13:30 GMT

Jodyma #4 / 6	Newline problem Quote: > I have made a perl script which reads email addresses and Text Message to be > sent using Net::SMTP. > The input file is a simple text file with "NAME<TAB>Message\n" format...i.e > Name and Messages are tab seperated and each record is in a newline. > My code does $smtp->datasend("$message") but I can't figure out a way to put > newlines in the email. > For eg, consider the message being as: > Hello ABC,\n Nice to Meet you.\nRegards,\nXYZ. > I want this to appear in email as : > Hello ABC, > Nice to Meet you. > Regards, > XYZ. > But I can't get these \n converted to newlines. > Where is the problem, scanning the data from text file or while sending the > email data? > How can I solve it? use diagnostics; use strict; my $message = 'This is a\nmessage for\n you.\n'; print "\$message = $message\n"; (my $dmess = $message) =~ s/\\n/\n/g; print "\$dmess = $dmess"; This should solve your problem. HTH, Jodyman
Wed, 28 Sep 2005 19:22:36 GMT

Kasp #5 / 6	Newline problem Quote: > (my $dmess = $message) =~ s/\\n/\n/g; Thanks for the help Jodyman, I got your $message ;-) -- Perl is designed to give you several ways to do anything, so consider picking the most readable one. -- Larry Wall> print "\$message = $message\n";
Wed, 28 Sep 2005 20:20:18 GMT

John W. Krah #6 / 6	Newline problem Quote: > I have made a perl script which reads email addresses and Text Message to be > sent using Net::SMTP. > The input file is a simple text file with "NAME<TAB>Message\n" format...i.e > Name and Messages are tab seperated and each record is in a newline. > My code does $smtp->datasend("$message") but I can't figure out a way to put > newlines in the email. > For eg, consider the message being as: > Hello ABC,\n Nice to Meet you.\nRegards,\nXYZ. > I want this to appear in email as : > Hello ABC, > Nice to Meet you. > Regards, > XYZ. > But I can't get these \n converted to newlines. > Where is the problem, scanning the data from text file or while sending the > email data? > How can I solve it? Instead of using a tab character as the field separator and a newline as the record separator create your own unique field and record separators: $/ = "<RS>\n"; while ( <DATA> ) { my ( $name, $data ) = split /<FS>\n/; # do something with $name and $data here } __DATA__ Hello ABC, Nice to Meet you. Regards, XYZ. <RS> Hello ABC, Nice to Meet you. Regards, XYZ. <RS> John -- use Perl; program fulfillment
Wed, 28 Sep 2005 22:08:31 GMT

Page 1 of 1

[ 6 post ]