Re (3): Getting all emails

The regex I showed before, because of the $ at the end, will only match if the string occurs just before a newline. So if you want to match things "in the middle of a line", just take the dollar sign out. Also, in your original question the regex started with a period, not an @ sign, and it looks like that's what you're after, so you should make that correction as well. /\@(?:company?|aa\.company|bb\.company)\.com/should do the trick. I'm still not sure why you have "company?". Is that just a typo? It will match compan or company, and it doesn't sound like you want the former. That's why I said you need to state your question more clearly.

However, if everything I've mentioned so far is correct (you want to find strings in the middle of a line, starting with an @ sign, possibly followed by aa. or bb., then followed by company.com), then here's a simpler way to just state that: /\@(?:aa\.|bb\.)*company\.com/

Comment on Re (3): Getting all emails Select or Download Code

Replies are listed 'Best First'.
Re: Re (3): Getting all emails by Anonymous Monk on Jun 19, 2003 at 19:49 UTC
Thanks for all your help. It now fetches all as needed. I noticed it doesnt just fetch "aa.company.com" and "bb.company.com". It fetches anything that is in front of "company.com". So if there is an email with "myname@xx.company.com" the reg expression will fetch the "xx.company.com". Any way to correct it so it just fetches the three I mentioned earlier? `anyname@aa.company.com anyname@bb.company.com anyname@company.com` [download] Here is the script that you fixed for me: `use File::Find; sub wanted { local F; if( $_ =~ /\.html?$/) { my $name = $File::Find::name; open ( F, $name ) or die "$!: $name\n"; while($line = <F>) { if($line =~ /\@(?:aa\.\|\.bb)company\.com/) { print "FILE = $_ ; } } close F; } } find( \&wanted, "/directory/path" );` [download] If this is all that can be done then I do thank you for helping me get this far. Thanks again!	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re (3): Getting all emails
by Anonymous Monk on Jun 19, 2003 at 19:49 UTC

anyname@aa.company.com
anyname@bb.company.com
anyname@company.com
[download]

use File::Find;

sub wanted
{
  local *F;
  if( $_ =~ /\.html?$/)
  {
     my $name = $File::Find::name;
     open ( F, $name ) or die "$!: $name\n";
     while($line = <F>)
     {

           if($line =~ /\@(?:aa\.|\.bb)*company\.com/)

        {
           print "FILE = $_ ;
        }
     }
     close F;
    }
}
find( \&wanted, "/directory/path" );
[download]

[reply]
[d/l]
[select]