| User since: |
Dec 22, 2002 at 10:42 UTC
|
| Last here: |
Jun 20, 2013 at 09:27 UTC
(17 minutes ago) |
| Experience: |
2437
|
| Level: |
Deacon (12)
|
| Writeups: |
221
|
| Location: | UK - South West |
| User's localtime: |
Jun 20, 2013 at 09:44 UTC
|
| Scratchpad: |
View
|
|
# program1.pl 17 March 2000
$phrase = '123';
print $phrase+1,"\n";
@home = ("couch","chair","table");
print $home[1],"\n";
%longday = ("Sun", "sunday", "Mon", "Monday");
print $longday{"Sun"},"\n";
|
