misao全文検索

2004/06/02 (水) 22:51:41　 ◆　 ▼　 ◇　 [mirai]
#!/usr/local/bin/perl

      $url   = "http://www.xxx.com/perljoke.cgi";
      $title = "PerlJOKE";
      $name  = "GT-R";
      $mail  = "";
      $text  = "ゲスッは金品を要求するから嫌い";

      print "Content-type: text/html\n\n";
      print "<HTML>\n<HEAD>\n<TITLE>$title</TITLE>\n</HEAD>\n<BODY>\n";
      print "<H3>$title</H3>\n";
      print "<FORM ACTION=\"$url\" METHOD=\"POST\">\n";
      print "<B>　名前:</B><INPUT TYPE=\"TEXT\" NAME=\"name\" SIZE=\"30\"><BR>\n";
      print "<B>メール:</B><INPUT TYPE=\"TEXT\" NAME=\"mail\" SIZE=\"30\"><BR>\n";
      print "<B>　内容:</B><TEXTAREA ROWS=\"10\" COLS=\"40\" NAME=\"text\"></TEXTAREA><BR>\n";
      print "<P><INPUT TYPE=\"SUBMIT\" VALUE=\"実行\">\n";
      print "<INPUT TYPE=\"RESET\" VALUE=\"取消\"></P>\n";
      print "</FORM>\n<HR>\n";
      for($n = 0; $n < 1000000; $n++) {
          print "<A HREF=\"mailto:\">$name</A><BR>";
          print "$text<HR>\n";
          if(($n % 10) == 0) {
              print "<A HREF=\"mailto:\">正義の味方</A><BR>";
              print "おい！荒らすのやめろ！<HR>\n";
          }
      }
      print "</BODY>\n</HTML>\n";

(´ー｀)