getday.pl

来自「This temp directory is used by the JVM f」· PL 代码 · 共 8 行

#!/usr/bin/perl

@days = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);

print "Content-type: text/html\n\n";
print "The first day of the week is $days[0]";

print "<P>The third day of the week is $days[2]";