ファイル名: ./w/quouted_print.cgi

#!/usr/local/bin/perl

#------------------------------------------------------------
$Title = 'quouted_print';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0">';
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$Title</TITLE></HEAD>\n";
print "$BODY\n";

#------------------------------------------------------------
$a = "warewan";
#------------------------------------------------------------
print "\$aは、$a\n";
print "<BR><BR>\n";
print 'warewan';
print "<BR><BR>\n";
print "warewan";
print "<BR><BR>\n";
print ("warewan");
print "<BR><BR>\n";
print ('warewan');
print "<HR><BR>\n";
print "print()に、ついて\n";
print "<BR><BR>\n";
print 3;
print "<BR><BR>\n";
print (3),"warewan\n";
print "<BR><BR>\n";
print ((3),"warewan\n");
print "<BR><BR>\n";
print 3,"warewan\n";
print "<BR><BR>\n";
print ("warewan"),"warewan\n";
print "<BR><BR>\n";
print (("warewan"),"warewan\n");
print "<BR><BR>\n";
print ('warewan'),"warewan\n";
print "<BR><BR>\n";
print (('warewan'),"warewan\n");
print "<BR><BR>\n";
print (("warewan"),("warewan\n"));
print "<BR><BR>\n";
print (("warewan"),("warewan"));
print "<BR><BR>\n";
print "\\n(改行)の、意味は?\n";
print "<BR><BR>\n";
print "\\n(改行)の、意味は?";
print "<BR><BR>\n";
print "<HR><BR>\n";
print " " 私は\$aです。\\n"は 私は$aです。\n";
print "<BR><BR>\n";
print ''私は$aです。\n'は 私は$aです。\n';
print "<BR><BR>\n";
print " "<font color = FFF000 >私は\$aです。</font>\\n"は <font color =FFF000>私は$aです。</font>\n";
print "<BR><BR>\n";
print ' '<font color = FFF000 >私は\$aです。</font>\\n'は <font color =FFF000>私は$aです。</font>\n';
print "<BR><BR>\n";
print ""\n";
print '\U$a\n';
print ""\n";
print "は\n";
print "\U$a\n";
print "<BR><BR>\n";
print "'\n";
print '\U$a\n';
print "'\n";
print "は\n";
print '\U$a\n';
print "<BR><BR>\n";
print "<BR><BR>\n";
print "寝る\n";
print "<BR><BR>\n";
#------------------------------------------------------------
print "</BODY>\n";
print "</HTML>\n";
exit;