web spider

jeadge has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: web spider by monkey_boy (Priest) on Mar 23, 2006 at 13:55 UTC
Use a regex, see the docs `for my $email (@addresses) { if ($email =~ m/^(.?)ulster.ac.uk/) { print $1 , "\n"; }; };` [download] This is not a Signature...*	[reply] [d/l]
Re: web spider by socketdave (Curate) on Mar 23, 2006 at 14:04 UTC
When posting this type of question, you'll generally get a better response if you take a shot and post the code that's not working for you. That said, you might want something like this: `map s/\@ulster\.ac\.uk//, @your_array;` [download] or `map s/\@ulster\.ac\.uk//g, @your_array;` [download] if there is a possibility that an array element will hold more than one email address. Take some time and look up 'map' and s///. There is MTOWTDI, and there are more basic solutions to this problem.	[reply] [d/l] [select]
Re^2: web spider by merlyn (Sage) on Mar 23, 2006 at 15:30 UTC
That map in a void context is probably better written as: `s/\@ulster\.ac\.uk// for @your_array;` [download] It's even shorter. :) -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: web spider by Anonymous Monk on Mar 24, 2006 at 05:22 UTC
Of course, regexes aren't the only way to go: `#!perl -l print substr($_, 0, index($_, '@')) for @emails;` [download]	[reply] [d/l]