web spider

[jeadge]

This node falls below the community's threshold of quality. You may see it by logging in.

[monkey_boy]

Use a regex, see the docs

for my $email (@addresses) 
{
    if ($email =~ m/^(.*?)ulster.ac.uk/) 
    {
        print $1 , "\n";
    };
};

[socketdave]

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;

or

map s/\@ulster\.ac\.uk//g, @your_array;

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.

[merlyn]

That map in a void context is probably better written as:

s/\@ulster\.ac\.uk// for @your_array;

It's even shorter. :)

[Anonymous Monk]

Of course, regexes aren't the only way to go:

#!perl -l

print substr($_, 0, index($_, '@')) for @emails;