n3.pl

来自「simple perl programs to understand suse 」· PL 代码 · 共 25 行

#! /usr/bin/perl

print "Content-type:text/html\n\n";
$string=$ENV{'QUERY_STRING'};
($fieldname,$Name)=split(/=/,$string);
$dt=`date|cut -c 12-13`;
if($dt<12)
{
print "Good Morning $Name";
}
elsif($dt>=12 && dt<16)
{
print "Good Afternoon $Name";
}
elsif($dt<=16 && dt>19)
{
print "Good Evening $Name";
}
else
{
print "Good Nite $Name";
}
exit(0);