What programming language is this...?

[questroizac]

Greetings,

I recently attended a job inteview for a placement at Reuters for a placement as a web developer, and they had a few 'technical questions', and one of them was this script at the bottom. I got so blank as to what language was writern in, and so couldn't attempt to asnwer it. Could anyone explain a little bit more, and if there's any chance that you could recommend some good tutorials available on the internet.

Thanking you in advance.

Here goes...

# Find the errors in the following code and identify ways to improve it:

#!/usr/bin/perl function sendEmailToMembers(@members){ my $mem = shift; for (my $i = 0 ; $i < length @members; $i++ ){ # get the member articles my $arts = $self->getMembarts($mem[$i]->{mail}->{subscriptions}->{filters},$mem[$i]->{mail}->{subscriptions}->{delivery_time},time); my $emailbody = $self->getUser_greeting($mem[$i]->{name},$mem[$i]->{status}); if($mem[$i]->{contacStatus} != "DO_NOT_CONTACT"){ if ($arts){ for ($i=0; $i <length @{$arts}; $i++){ $emaillbody+= $self->addarticle{ $arts->[$i]}; }$self->send_Email($emailbody,$mem[$i]->{emailaddress}); } } }}

[Hotaru]

The language is perl.

http://www.perl.org/

[questroizac]

Thanks Hotaru, Do you think you would any suggestions as how to improve the code?