lothar4ever,
You don't say where the data is coming from, so to get your $string to be what you want, you need to escape the '@' signs:
my $string = qq|sean\@gmail.com, "richard" <richard\@gmail.com>, "john
+" <john\@gmail.com>, <jack\@gmail.com>|;
For this, I would use 'split': ( tested code, but re-typed from X-Terminal ):
my @email = split(/\,/,$string);
for my $var( 0 .. $#email )
{ print "$email[$var]\n";
..... # put additional code here
}
Now you have an array that you could use a regex or 'split' again on each element of the array in get the format you want. If the data is coming from disk, it maybe that each email address is on a line terminated with a 'CR'.
Hope this helps.
"Well done is better than well said." - Benjamin Franklin
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|