18 lines
298 B
Text
Executable file
18 lines
298 B
Text
Executable file
Title: perl
|
|
Author: Graham Nelson
|
|
Purpose: A test Perl script for inweb.
|
|
Language: Perl
|
|
|
|
@ =
|
|
print recolour("Santa likes red and green socks.\n");
|
|
|
|
@ =
|
|
sub recolour {
|
|
my $text = $_[0];
|
|
@<Change the hues@>;
|
|
return $text;
|
|
}
|
|
|
|
@<Change the hues@> =
|
|
$text =~ s/red/blue/;
|
|
$text =~ s/green/purple/;
|