<div>
Thanks.<br />
<br />
Here is a a better solution that demands at least one dot in the address, and is not fooled by a comma or a period at the start of the address, or a comma at the end of the address.<br />
<br />
$read =~ m/([^\s.,]*\@[^\s.,]+\.[^\<wbr />s,]+)/i;<br />
<br />
It is not perfect because, for example, it is fooled by a period at the end of an address. &nbsp;It is up to you to add as much checking as is justified is your circumstances.<br />
<br />
On the command line enter<br />
&nbsp; &nbsp; perldoc -q &quot;How do I check a valid mail address?&quot;<br />
for more info
</div>


Thanks.

Here is a a better solution that demands at least one dot in the address, and is not fooled by a comma or a period at the start of the address, or a comma at the end of the address.

$read =~ m/([^\s.,]*\@[^\s.,]+\.[^\s,]+)/i;

It is not perfect because, for example, it is fooled by a period at the end of an address.  It is up to you to add as much checking as is justified is your circumstances.

On the command line enter
    perldoc -q "How do I check a valid mail address?"
for more info

<div>
<div class="content wysiwyg-content">
ok,<br />
<br />
i need to pull an email address from a line like so:<br />
<br />
$read = 'hello and welcome to my place, my email address is me@myplace.com in case you want to write me';<br />
<br />
now the problem is that the text/email will not be the same each time.. so far i got this:<br />
<br />
$read =~ m/(\s.*?\@.*\..*\s)/i; but this pulls out everything from the first space to the one right after the email address..<br />
<br />
can someone show me where i am going wrong on that??<br />
Thanx<br />
<br />
ps: sry for the points, but it seems that my points that i did have have dissapeared??
</div>
</div>


ok,

i need to pull an email address from a line like so:

$read = 'hello and welcome to my place, my email address is me@myplace.com in case you want to write me';

now the problem is that the text/email will not be the same each time.. so far i got this:

$read =~ m/(\s.*?\@.*\..*\s)/i; but this pulls out everything from the first space to the one right after the email address..

can someone show me where i am going wrong on that??
Thanx

ps: sry for the points, but it seems that my points that i did have have dissapeared??

regex question

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.