Hulp met Perl-code?

Kan iemand me helpen met deze Perl code?

[code] if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] said: $said\n";
if ($said =~ /hello/i) {
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/€ 0,81 (€ 0,81 ())/;
$self->doSendMessage("Hey!");
} elsif ($target and $who =~ /$target/i) {
if ($target_follow && $said =~ /follow/i) {
$target = "";
# Blurt out a random scriptcode
my $scriptcode = int(rand 32) + 1;
$self->doSendLineMessage($scriptcode);
} else {
# Pretend to lag a little bit
select(undef,undef,undef,0.55);
$self->doSendMessage($said);
}
} else {
if ($target_follow && $said =~ /follow/i) {
$target = $who;
$self->doSendPosition($u->{x},$u->{y});
}
}
}
}[/code]

Dit stukje...
[code] if ($said =~ /hello/i) {
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/€ 0,81 (€ 0,81 (€ 0,81 (€ 0,81 ())))/;
$self->doSendMessage("Hey!");[/code]

...vertelt de 'robot' om 'Hey!' te zeggen als iemand anders 'hello' zegt.
Dat zou ik graag ook met andere teksten willen doen, bijv. dat hij 'Thanks' zegt als iemand anders 'You're the best' zegt.
Hoe voeg ik nog zo'n stukje toe?

Weet jij het antwoord?

/2500

Misschien moet je eens een perl-forum of ontwikkelaarsforum gaan zoeken. De meeste beantwoorders hebben geen kennis van Perl.

Bronnen:
http://www.helpmij.nl/forum/forumdisplay.p...

[code] if ($said =~ /you're the best/i) { $who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/€ 0,81 (€ 0,81 (€ 0,81 (€ 0,81 ())))/; $self->doSendMessage("thanks");[/code] ik denk zoiets! en met toevoegen doe je het er gewoon naast

Stel zelf een vraag

Ben je op zoek naar het antwoord die ene vraag die je misschien al tijden achtervolgt?

/100