as you requested.
If you remove the exit at the end, it will process every line in the file (instead of ignoring every line in the file except the first one), producing the output:
Code:
$id=IN301330/00001
$name=Pvavan Kumar Limited
$email=xyz@ttccpp.com
$id=IN302148/00002
$name=pRECIOUS sECURITIES (P) lTD
$email=viash@yahoo.co.in
$id=IN300239/00000
$name=cENTRE India Compay For You Pvt Ltx
$email=ifo@vikas.com
$id=IN301696/000006
$name=Yourcomany Pvt Ltd
$email=pavan@pavan.com
$id=IN300095/0000009
$name=Mycomany pvt ltd
$email=vijy@indianov1.com
If the capitalization of the 1st letter in each word in the name is not what you said you wanted, I assume you can easily modify this code to perform capitalization the way you want it.
hi everybody,
i have a file, in it I need to extract some data that follows a particular pattern..
For example: my file contains like
now running Speak225
sep 22 mon 16:34:05 2008
--------------------------------
... (4 Replies)
Hi All,
I have a requirement where I have to search the file with some text say "Exception". This exception word can be repeated for more then 10 times.
Suppose the "Exception" word is repeated at line numbers say x=10, 50, 60, 120. Now I want to extract all the lines starting from x-5 to... (3 Replies)
Hi Freinds,
I have a file1.txt in the following format
File1.txt
I want to get 2 files from the above file filextra.txt should have the lines which are ending with "<" and remaining lines in the filecompare.txt file.
Please help. (3 Replies)
FILE_ID extraction from file name and save it in CSV file after looping through each folders
My files are located in UNIX Server, i want to extract file_id and file_name from each file .and save it in a CSV file. How do I do that?
I have folders in unix environment, directory structure is... (15 Replies)
Hey all,
i´ve got the following problem:
i´m aquiring data with an instrument and i get data in a .txt file.
This is how the txt file looks like:
Report of AU program poptau
F1P=-49.986ppm F2P=-110.014ppm
Target directory for serfile: D:/data/Spect500/nmr/Thoma/882
Linear... (17 Replies)
Hallo Friends,
I need you help. My file has 5000 or so lines and currently looks like below(sample).
Service Type,Origin,Destination,Rate Per Minute,Minimum Charge,Time Based Rate,Time Based From Day,Time Based To Day,Time Based From Time,Time Based To Time,Destination Prefix List,,
VoIS... (3 Replies)
Hi, I am newbie in shell script.
I need your help to solve my problem.
Firstly, I have 2 files of csv and i want to compare of the contents then the output will be written in a new csv file.
File1:
SourceFile,DateTimeOriginal
/home/intannf/foto/IMG_0713.JPG,2015:02:17 11:14:07... (8 Replies)
Hello,
I'm attempting to extract 13 digit numbers beginning with 978 from a data file with the following command:
awk '{ for(i=1;i<=NF;i++) if($i ~ /^978/) print $i; }' datafile > outfile
This typically works. However, the new data file is an .xml file, and this command is no longer working... (6 Replies)
Hi All,
I have a data file and need to extract and convert it into csv format:
1) Read and extract the line containing string ending with "----" (file sample_linebyline.txt file) and to make a .csv file from this.
2) To read the flat file flatfile_sample.txt which consists of similar data (... (9 Replies)
Discussion started by: abhi_123
9 Replies
LEARN ABOUT DEBIAN
email::send::test
Email::Send::Test(3pm) User Contributed Perl Documentation Email::Send::Test(3pm)NAME
Email::Send::Test - Captures emails sent via Email::Send for testing
SYNOPSIS
# Load as normal
use Email::Send;
use Email::Send::Test;
# Always clear the email trap before each test to prevent unexpected
# results, and thus spurious test results.
Email::Send::Test->clear;
### BEGIN YOUR CODE TO BE TESTED (example follows)
my $sender = Email::Send->new({ mailer => 'Test' });
$sender->send( $message );
### END YOUR CODE TO BE TESTED
# Check that the number and type (and content) of mails
# matched what you expect.
my @emails = Email::Send::Test->emails;
is( scalar(@emails), 1, 'Sent 1 email' );
isa_ok( $emails[0], 'Email::MIME' ); # Email::Simple subclasses pass through
DESCRIPTION
Email::Send::Test is a driver for use in testing applications that use Email::Send to send email.
To be able to use it in testing, you will need some sort of configuration mechanism to specify the delivery method to be used, or some
other way that in your testing scripts you can convince your code to use "Test" as the mailer, rather than "Sendmail" or another real
mailer.
How does it Work
Email::Send::Test is a trap for emails. When an email is sent, it adds the emails to an internal array without doing anything at all to
them, and returns success to the caller.
If your application sends one email, there will be one in the trap. If you send 20, there will be 20, and so on.
A typical test will involve doing running some code that should result in an email being sent, and then checking in the trap to see if the
code did actually send out the email.
If you want you can get the emails out the trap and examine them. If you only care that something got sent you can simply clear the trap
and move on to your next test.
The Email Trap
The email trap is a simple array fills with whatever is sent.
When you send an email, it is pushed onto the end of the array. You can access the array directly if you wish, or use the methods provided.
METHODS
send $message
As for every other Email::Send mailer, "send" takes the message to be sent.
However, in our case there are no arguments of any value to us, and so they are ignored.
It is worth nothing that we do NOTHING to check or alter the email. For example, if we are passed "undef" it ends up as is in the trap. In
this manner, you can see exactly what was sent without any possible tampering on the part of the testing mailer.
Of course, this doesn't prevent any tampering by Email::Send itself :)
Always returns true.
emails
The "emails" method is the preferred and recommended method of getting access to the email trap.
In list context, returns the content of the trap array as a list.
In scalar context, returns the number of items in the trap.
clear
The "clear" method resets the trap, emptying it.
It is recommended you always clear the trap before each test to ensure any existing emails are removed and don't create a spurious test
result.
Always returns true.
deliveries
This method returns a list of arrayrefs, one for each call to "send" that has been made. Each arrayref is in the form:
[ $mailer, $email, @rest ]
The first element is the invocant on which "send" was called. The second is the email that was given to "send". The third is the rest of
the arguments given to "send".
SUPPORT
All bugs should be filed via the CPAN bug tracker at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Email-Send-Test <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Email-Send-Test>
For other issues, or commercial enhancement or support, contact the author.
AUTHORS
Current maintainer: Ricardo SIGNES, <rjbs@cpan.org>.
Original author: Adam Kennedy <cpan@ali.as>, <http://ali.as/>
COPYRIGHT
Copyright (c) 2004 - 2005 Adam Kennedy. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.12.4 2011-08-31 Email::Send::Test(3pm)